FICHE1OF1 MADE INUSA 


aie x ae 


Teena nl iene a = S iadiainaaianial 


—TMO2/TU45 —cztukao————convnicen 75-70 BASHDED 





= 
1MO2/TU45 CONTROL LOGIC TEST MACY11 30(1046) 22-JUN-78 08:58 PAGE 1 
CZTUKA.P11 12-JUN-78 16:17 SEQ 0001 


-NLIST SEQ,LOC,BIN 
oa REA_ 


IDENTIFICATION 
PRODUCT CODE: AC~E475A-MC 
PRODUCT NAME: CZTUKAO TMO2/TU45 CONTROL LOGIC TEST 
DATE CREATED: 25 MAY 1978 
MAINTAINER: COMPUTER SPECIAL SYSTEMS 
AUTHOR : R. B. BARNES/R. J. COLLINS 
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UP ABSTRACT 


THIS PROGRAM IS DESIGNED TO SEQUENTIALLY TEST ALL 

CONTROL LOGIC AND DATA FORMATTING WITHIN THE TMO2 

FORMATTER. EACH TEST WILL ATTEMPT TO ISOLATE FAILURES 

TO THE MODULE LEVEL AND PROVIDE PRINTOUT INFORMATION: 

WHICH WILL IDENTIFY THE FAILING MODULE. 

THERE ARE TWO (2) MAJOR AREAS OF TESTING: CONTROL LOGIC ; 
AND DATA FORMATTING. THE CONTROL LOGIC SECTION (TEST 1-41 & 57-64) 
WILL TEST ALL ERROR AND STATUS CONDITIONS AS WELL AS 
ADDRESSING PROTOCOL AND OPERATIONAL LOGIC SEQUENCES. 

THE DATA FORMATTING SECTION (TESTS 42-56) WILL TEST 

ALL DATA FORMATS AND TRANSFER PATHS IN ALL POSSIBLE 
COMBINATIONS. 

THE LEVEL OF FAULT ISOLATION IS POSSIBLE BECAUSE OF 

TMO2 THE STRUCTURE AND ITS MAINTAINENCE MODES. 


2. REQUIREMENTS (HARDWARE) 


A. ANY PDP-11 PROCESSOR 

B. 8K OF CORE 

C. CONSOLE TTY 

D. TMO2 MAGTAPE CONTROLLER 
E. MASSBUS CONTROLLER (RH) 
F. TU4S MAGTAPE TRANSPORT 


3. LOADING PROCEDURE 


USE STANDARD PROCEDURE FOR LOADING BINARY PAPER TAPE. 
4. STARTING PROCEDURE 


THERE ARE TWO (2) STARTING ADDRESSES THAT MAY BE USED: 
200(8) AND 210(8). 


A. 200(8): STARTING AT THIS ADDRESS WILL CAUSE A PROGRAM 
a HEADER TO BE PRINTED BEFORE TESTING 


B. 210(8): STARTING AT THIS ADDRESS WILL NOT PRINT THE 
IDENTIFICATION HEADER AND IS THEREFORE GENERALLY 
TO BE USED FOR RESTARTS RATHER THAN INITIAL START 
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CONSOLE SWITCH SETTINGS 


ALL SWITCHES ARE USED (0-15) AND THE NORMAL, OR DEFAULT, RUN 


1S DONE WITH ALL SWITCHES SET TO ZERO (0). 


ALL SWITCHES ARE DYNAMIC AND MAY BE CHANGED AT ANY ‘eat —_— 


A CONSOLE SWITCH REGISTER IS PRESENT. IF A CONSOLE 


REGISTER IS NOT PRESENT, THE FOLLOWING PROCEDURE MUST BE 


IMPLEMENTED: 


$W15: 
SW14: 
SW13: 
SW12: 
SW11: 
Sw10: 
SwW9: 
Sw8: 
SW?7: 
SwW6: 


SwW5-0: 


A) LOAD ADDRESS 570(8) LABELLED ‘‘SWR"’ 
8B) DEPOSIT THE VALUE 176(8) 

C) LOAD ADDRESS 176(8) 

D) DEPOSIT THE DESIRED SWITCH VALUE. 


HALT ON ERROR 
CONTINUE 

LOOP ON ERROR (SCOPE) 
CONT INUE 

DO NOT PRINT ERRORS 
PRINT ALL ERRORS 


INHIBIT ITERATIONS 
O=ITERATE EACH oe ASSIGNED AMOUNT 


—OoO—-0oO-0O— 


SS 
1=HALT AT END OF CURRENT TEST 
O=CONTINUE TO NEXT TEST 
1=DO MANUAL ITERVENTION TESTS 
O=INHIBIT MANUAL INTERVENTION 
1=INHIBIT WRAP AROUND DATA CHECK 
0=D0 DATA CHECKS 
1=INHIBIT WRAP AROUND STATUS CHECK 
O=DO STATUS CHECK 
T=SELECTABLE WRAP DATA PATTERN (IN SINGLE TEST) 
=AUTO PATTERN 
SELECT INDIVIDUAL TEST (1-64)** 00=DO ALL TESTS 


SEQ 0004 
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ERROR PRINTOUTS 


ERROR PRINTOUTS WILL APPEAR IN TWO FORMS, ONE FOR THE 
CONTROL LOGIC TESTS AND ANOTHER FOR THE DATA TESTS. 


CONTROL LOGIC PRINTOUTS WILL CONTAIN A HEADER WHICH CALLS 

OUT THE TEST NUMBER, FUNCTION BEING TESTED, AND THE SUSPECT MODULE, 

OR MODULES ON THE FIRST LINE. THE SECOND LINE WILL CONTAIN INFORMATION 
AS TO THE ACTUAL ERROR. BOTH THE EXPECTED RESULT AND THE ACTUAL 

RESULT OF THE TEST WILL BE GIVEN. LINE THREE WILL SHOW THE 

CONTENTS OF THE MAJOR REGISTERS AT THE TIME OF THE ERROR AND 

LINE FOUR WILL PRINT THE ITERATION NUMBER WHEN APPLICABLE. 


DATA TESTS WILL PRINT A HEADER CONTAINING THE TEST WUMBER, 
AND A DESCRIPTION OF THE WRAP AROUND FUNCTION UNDER TEST. 
FOLLOWING THE HEADER WILL BE A LIST OF THE MAJOR REGISTERS 
WITH THE EXPECTED AND ACTUAL VALUES. ANY BAD DATA WILL BE 
PRINTED (PER CHARACTER) FOLLOWING THE REGISTER INFORMATION OR 
FOLLOWING THE HEADER IF NO STATUS ERRORS WERE ENCOUNTERED. 


EXAMPLES: 


1. THE FOLLOWING EXAMPLE SHOWS A TYPICAL ERROR 
PRINTOUT FOR THE ADDRESS TESTS (LT1-LT5). 


LOGIC TEST 1: DRIVE ADDRESSING (M8909 OR RH) 
re DRIVE 3 EXPT=-NOT RECVD 


THIS PRINTOUT SHOWS THAT THE DRIVE ADDRESS (CS2 BITS 2,1,0) 
RESULTED IN THE DETECTION OF NED (BIT 12 OF CS2) FOR DRIVE 
THREE (3) WHEN THAT DRIVE SHOULD BE THERE. THIS ERROR OCCURRED 
ON ITERATION THREE (3). 


2. THIS EXAMPLE WILL SHOW A TYPICAL PRINTOUT OF ONE OF THE REGISTER 
BIT TESTS. 


LOGIC TEST 7: FC BIT TEST (M8705) 
FC BITS 15-0 EXPT 177777 RECVD 177577 


THIS PRINTOUT SHOWS THAT FRAME COUNT BIT SEVEN (7) WAS 
NOT SET WHEN IT SHOULD HAVE BEEN. NO ITERATION NUMBER 
IS DISPLAYED WHEN RUNNING WITH CONSOLE SWITCH 

TWELVE (12) SET TO A ONE (1). 


SEQ 0005 
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3. THE FOLLOWING IS A TYPICAL PRINTOUT RESULTING FROM BAD 
STATUS DETECTION DURING A MANUAL INTERVENTION TEST (LT14-LT17) 


LOGIC TEST 15: MANUAL STATUS TEST 2 
Ae EXPT 100700 RCVD 000700 


THIS SHOWS THAT ON THE FIRST TRY (ITER: 0) THE ACTION TAKEN 
BY THE OPERATOR DID NOT RESULT IN THE PROPER STATUS DETECTION 
BY THE HARDWARE (ATA IS NOT SET). 


4. THE FOLLOWING FOUR (4) EXAMPLES SHOW EACH OF THE ERROR TYPES THAT 
CAN BE DETECTED BY ANY OF THE ERROR FORCING TESTS. NOTE THAT ONE OR 


pg Ay ERROR TYPES COULD BE DETECTED ON A SINGLE EXECUTION OF 
H 


LOGIC TEST 24: DPAR (M8906 RH) 
DPAR EXPT EXPT-NOT RCVD 


CS$1 wc BA FC CS2 DS ER AS MR TC 
004260 000000 033726 000000 000100 010600 000000 000000 177712 140300 
THIS MESSAGE SHOWS THAT DPAR (BIT 5 OF ER) DID NOT SET. 


LOGIC TEST 26: FCE (M8909) 
ERR NOT SET 


CS1 WC BA FC CS2 DS ER AS MR TC 

004260 000000 0013576 000000 000100 110600 001000 000001 000000 100300 
THIS MESSAGE SHOWS THAT WHILE FCE (BIT 9 OF ER) WAS INDEED 
SET, THE COMPOSITE ERROR BIT (BIT 14 OF DS) WAS NOT. 
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LOGIC TEST 30: DIE (M8906 RH) 
lt “4 a 


C$1 CS2 DS ER AS MR TC 
144260 002006 006600 000000 001300 150600 030000 000001 000017 100300 


THIS MESSAGE SHOWS THAT WHILE THE PROPER ERROR BIT (DTE: BIT 12 OF ER) IS 
SET, OPI (BIT 135 OF ER) IS ALSO SET AND SHOULD NOT BE. 


LOGIC TEST 32: UNS (M8909) 

NOT RESET BY DRIVE CLEAR 

CS1 WC BA FC CS2 DS ER AS MR TC 

144210 002006 006600 000000 001500 150000 040000 000001 000000 140307 
THIS MESSAGE SHOWS THAT WHILE THE PROPER ERROR BITS WERE SET, THEY 
WERE NOT CLEARED BY A DRIVE CLEAR OPERATION. 
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5. THE FOLOWING ARE TWO EXAMPLES OF ERRORS DETECTED BY THE WRAP AROUND 
DATA TESTS. NOTE THAT EACH WRAP AROUND TEST MAY BE ACCOMPANIED 
BY EITHER A STATUS ERROR OF A DATA ERROR OR BOTH. 


LOGIC TEST 42: WRAP 3, NRZ, NORMAL, ODD 
BAD STATUS 

CS1 EXPT 004270 RCVD 144270 

CS2 EXPT 000100 RCVD 000100 

DS EXPT 010600 RCVD 150600 

ER EXPT 000000 RCVD 000100 


THIS MESSAGE INDICATES BAD STATUS OF VPE (BIT 6 OF ER) 


LOGIC TEST 44: WRAP 2, NRZ, NORMAL, ODD 
— 


G: 11111111 
: 11111011 


B 

CN:10 

G: 00000000 
B: 00001000 


THIS MESSAGE SHOWS THAT DATA RECEIVED WAS NOT AS EXPECTED. CHARACTER 
ZERO (CN: 0) SHOWS THAT BIT TWO (2) WAS DROPPED, WHILE CHARACTER 

TEN (CN: 10) SHOWS BIT THREE (3) HAS BEEN PICKED UP 

G: = EXPECTED DATA (GOOD) 

B: = ACTUAL DATA (BAD) 
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OPERATION 


THE PROCEDURES FOR OPERATING THIS PROGRAM ARE QUITE 
SIMPLE AND REQUIRE ONLY A FEW STEPS: 


1. LOAD ADDRESS 200 OR 210 
2. SET SWITCHES FOR DESIRED TEST CYCLE, 
3. PRESS START 


ALL CONSOLE SWITCHES ARE DYNAMIC AND MAY BE CHANGED 

AT ANY TIME. THE NORMAL OPERATING SEQUENCE IS ALL SWITCHES 
DOWN (0). THE TEST WILL TAKE APPROXIMATELY 3 MINUTES TO 
RUN; HOWEVER, IF ITERATIONS ARE INHIBITED (SW11=1) THE TEST 
WILL RUN IN ABOUT 30 SECONDS. THE END OF PASS IS 

4 gh Me PRINTOUT STATING END OF PASS, AND THE NUMBER OF 


SINGLE TEST SELECTION: (SWO-SW5) 


WHEN SWO-SW5 ARE SET TO ZERO (00), THE SCHEDULAR WILL 

EXECUTE ALL TESTS (1-64) IN SEQUENCE. IF SWO-SW5 ARE SET 

TO SOME SPECIFIC TEST NUMBER (1-64) THEN THAT PARTICULAR TEST 

ONLY WILL BE EXECUTED UNTIL THE TEST SELECT NUMBER IS CHANGED. 

WHEN YOU WISH TO SELECT A PARTICULAR TEST, SET SW10 TO 

A ONE (1) IN ORDER TO STOP AT THE END OF THE CURRENT TEST BEFORE 
SELECTING A DIFFERENT TEST NUMBER. YOU MAY SELECT THAT NUMBER IN 
ANY DIRECTION (HIGHER OR LOWER) BECAUSE EACH TEST IS SELF CONTAINED. 


WRAP AROUND DATA PATTERNS MAY BE SELECTED VIA SW6 WHEN IN 

SINGLE TEST MODE. A TELETYPE REQUEST IS MADE FOR THE DESIRED DATA 
PATTERN WHENEVER SWITCH TEN (SW10) AND SWITCH SIX (SW6) ARE SET TO 
A ONE (1) WHILE ONE OF THE WRAP TESTS IS SELECTED IN SWO-SW5. 


SEQ 0009 
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TEST DESCRIPTION 


PURPOSE: VERIFY THE PRESENCE OF TMO2 AT THE ADDRESSES 
eerste BY THE OPERATOR. TEST OCCURS IMMEDIATELY AFTER DRIVE 


PROGRAMMED SEQUENCE: FOR EACH TMO2 ADDRESS (0-7) THE C1 
REGISTER IS READ, AND THE NON-EXISTANT DRIVE (NED) BIT 

IS CHECKED. NED IS SET WHEN THE TMO2 DOES NOT RESPOND TO 
DEM BY ISSUING TRA. IN THIS TEST, NED IS EXPECTED FOR 
EACH ADDRESS NOT TYPED BY THE OPERATOR. 


LIKELY FAULT LOCATIONS: M5904, CABLE M5903 ,M8909 


CIRCUITS PRINT REFERENCES 
RH-DS BITS (CSRB) 
RH-NED BIT (CSRB) 
MASSBUS CABLE C(DEM,TRA,DS BiTS) (MB3) 
DRIVE ADDRESS (MBI2) 


DEM-TRA HANDSHAKE 
LOGIC TEST #2: REGISTER ADDRESSING 


PURPOSE: CHECK THE REGISTER SELECT LINES 


PROGRAMMED SEQUENCE: READ ALL 14 MASSBUS REGISTERS WHICH MAKE UP 
(3) ae CHECKING FOR (1) CONTROL BUS PARITY ERROR AND 


LIKELY FAULT LOCATIONS: M5904, CABLE M5903 M8909 .M8905YA,M89035YA 


CIRCUITS PRINT REFERENCE 

C-LINES (MB1,2,3),(MB13), (MBI4) , (MBI5) 
RH REGISTER SELECT (BCTA) 

TMO2 REGISTER SELECT (MBI2) 

MASSBUS REGISTER SELECT LINES (MB1,2) 

PARITY TREE (MB14) 


CPAR,ILR BITS (MBI11) 


SEQ 0010 
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LOGIC TEST #3: CONTROL BUS 


PURPOSE: VERIFY THAT ALL CONTROL LINES PROPERLY TRANSMIT 
ONES AND ZEROS. 


PROGRAMMED SEQUENCE: WRITE FC REGISTER AND CHECK CPAR, READ FC AND 

CHECK MCPE, UPDATE DATA, REPEAT. DATA IS ALL 0°S, WALKING ‘1° BIT, 
L ‘O'S, 2 WALKING ‘1° BITS BEGINNING WITH BIT 0 AND 8 

DATA IS CHECKED ALONG WITH ERROR BITS. 


LIKELY FAULT LOCATIONS: M5904, CABLES ,MS903YA,M8909 .M8905YA ,.M8905VA 


CIRCUITS PRINT REFERENCE 

C-LINES (MB1,2,5) 

C-BUS MULTIPLEXERS (MBIS. 4. 5,8) (TCCM7) (MR) 
ERROR BIT (MB111 

MCPE BIT (PACA) 


LOGIC TEST wa: SLAVE ADDRESSING 


PURPOSE: VERIFY THE FUNCTIONING OF THE SLAVE ADDRESS BITS IN 
THE TAPE CONTROL REGISTER THE SLAVE ADDRESS BUS LINES, 

THE ADDRESS DECODE CIRCUIT IN THE TU4S AND THE SPR BIT. 
KAKA AAAEARAAAAAAAKCAARAEARAAEKAATAAAATAEAAEAAAEAETEEEE 

#1T 18 REQUIRED THAT ONLY ONE SLAVE BE POWERED UP WHEN® 

*THIS TEST IS RUN. 


Hs tS PRO EN eR RS eA 


PROGRAMMED SEQUENCE: THE SLAVE ADDRESS BITS IN THE TAPE 
CONTROL REGISTER ARE LOADED WITH ALL 8 COMBINATIONS AND 
SPR IS CHECKED FOR EACH ADDRESS. 


LIKELY FAULTS LOCATIONS: M8905VA,M8907, CABLE ,M8921 ,M8905YA 


CIRCUITS PRINT REFERENCE 
REGISTER SELECT (MBI2) 

SLAVE ADDRESS BITS (MR6) 

SLAVE ADDRESS LINES (M8907 ,2-2) , (LAW6) 
TU45 ADDRESS DECODE (M8921) 


SPR BIT (M8921) (TCCM7) 


SEQ 0011 
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LOGIC TEST #5: MAINTENANCE REGISTER BITS 


PURPOSE: TO VERIFY THAT THE VARIOUS BITS OF THE MAINTENANCE 
aa aatioee BE WRITTEN INTO AND READ AND OTHERWISE BEHAVE 


PROGRAMMED SEQUENCE: IN THE FIRST SEQUENCE AN INCREMENTING DATA 
WORD (0-37) IS WRITTEN INTO THE MR. WITH THE CONTENTS OF BITS 0-4 
BEING CHECKED AFTER EACH OPERATION. THEN 15(OCTAL) IS WRITTEN 
INTO THE REGISTER WHICH SHOULD PERMIT BITS 7-15 TO BE WRITTEN 
FROM THE CONTROL BUS. THEN THE DATA WRITTEN INTO BITS 7-15 

IS INCREMENTED AND CHECKED. 


LIKELY FAULT LOCATIONS: M8905YA 


CIRCUITS PRINT REFERENCE 
C-LINES 

MAINTENANCE REGISTER (MR2,5,5) 

M.R. FUNCTION DECODE (MR5) 

M.R. MULTIPLEXOR (MR4) 


LOGIC TEST #6: TAPE CONTROL REGISTER BITS 


PURPOSE: TO VERIFY THAT TAPE CONTROL BITS 0-11 CAN BE WRITTEN 
INTO AND READ AND THAT TCW BEHAVES AS EXPECTED: 


PROGRAMMED SEQUENCE: ALL 0°S DATA PATTERN IS WRITTEN TO AND 
READ FROM THE TAPE CONTROL REGISTER. TCW IS CHECKED FOR A 
waht IS REPEATED WITH ALL ‘'l"’ DATA AND AGAIN 


LIKELY FAULT LOCATIONS: M8909, M8905VA 


SS OW EN OS OS oD SS UD GH OD ow ee OS SS a \ 


CURCUITS PRINT REFERENCE \ 


TMO2 REGISTER SELECT (MBI2) 
TC FLIP-FLOPS, MULTIPLEXERS (MR6) 
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LOGIC TEST #7: FRAME COUNT BIT TEST 


PURPOSE: 10 VERIFY THAT THE FRAME COUNT BITS CAN BE 
ppd i AND READ FROM AND ARE NEITHER STUCK AT 0 NOR 


PROGRAMMED SEQUENCE: DATA IS WRITTEN INTO THE FRAME COUNT 
REGISTER AND READ FROM IT. THE DATA PATTERN IS ALL ZEROS 
FOLLOWED BY ALL ONES FOLLOWED BY ALL ZEROS. 


LIKELY FAULT LOCATIONS: M8909 


CIRCUITS PRINT REFERENCE 
TMO2 REGISTER SELECT (MBI2) 

FRAME COUNT REGISTER (MB18) 

FRAME COUNT MULTIPLEXERS (MB110) 


LOGIC TEST #10: FUNCTION CODE BIT TEST 


PURPOSE: TO VERIFY THAT THE FUNCTION CODE BITS CAN BE WRITTEN 
ei AND READ FROM AND ARE NEITHER STUCK AT 0 NOR STUCK 


PROGRAMMED SEQUENCE: THE C1 REGISTER IS WRITTEN WITH ALL ZEROS. 
DATA IS CHECKED ON THE 5 FUNCTION CODE BITS (BITS 1-5). 
a eaahe™ WRITTEN WITH ONES, CHECK AND REPEAT WITH 


LIKELY FAULT LOCATION: M8909, M8905YA 


CIRCUITS PRINT REFERENCE 
TMO2 REGISTER SELECTION (MBI2) 
FUNCTION CODE FLOPS (MB15) 


FUNCTION CODE MULTIPLEXERS (MR6) 
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LOGIC TEST #11: GO BIT SET, RESET 


PURPOSE: TO VERIFY THAT THE GO BIT CAN BE SET IN A SIMULATED 


READ OPERATION AND CLEARED #ITH AN INIT. 


PROGRAMMED SEQUENCE: INIT AND CHECK THAT GO=0. SET UP A 
SIMULATED READ OPERATION BY LOADING A WAM3S 15(OCTAL) INTO THE 
MAINTENANCE REGISTER, CLEARING THE FRAME COUNT REGISTER TO 
SET FCS, LOAD 1700 (FORMAT) INTO THE TAPE CONTROL REGISTER, 
SETTING READ COMMAND AND GO BIT. CHECK FOR GO=1. INIT AND 


CHECK THAT GO BIT=0. 


LIKELY FAULT LOCATION: MASSBUS LABLE BCINIT) ,M8909,M8905YA 


CIRCUIT PRINT REFERENCE 
FCS MB18 
SET ILF MBI? 
SET NEF MBI7 
GO BIT MBI5 
GO BIT MULTIPLEXER MR6 
SET ILR ; MBI2 


LOGIC TEST #12: DRIVE READY BIT 


TEST 12 IS AN EXACT REPEAT OF TEST 11 EXCEPT 
THAT DRIVE READY (DRY) IS CHECKED INSTEAD OF 


-THE GO BIT. DRY IS SIMPLY GO L MULTIPLEXED ONTO 


THE C-LINES AS BIT SEVEN OF THE STATUS REGISTER. 
PRINT REF TCCM7 


SEQ 0014 
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LOGIC TEST #13: INTERRUPT TEST 


PURPOSE: TO VERIFY THE OPERATION OF THE RH INTERRUPT LOGIC. 


PROGRAMMED SEQUENCE: THE C1 REGISTER IS CLEARED, PRIORITY IS SET, 
THE INTERRUPT ENABLE BIT IS SET AND THE INTERRUPT IS AWAITED. 


LIKELY FAULT LUCATION: 


CIRCUITS PRINT REFERENCE 


INTERRUPT CONTROL BCTF 
MANUAL INTERVENTION TESTS 14,15,16,17 


PURPOSE: TO TEST FOR THE PRESENCE OF MOL,WRL,DPR.DRY,BOT. 


PROGRAMMED SEQUENCE: THE OPERATOR IS INSTRUCTED TO LOAD THE 
DRIVE WITH A TAPE MINUS THE WRITE ENABLE RING AND PLACE 
THE DRIVE ON LINE AT BOT MOL,WRL,DPR,DRY,.BOT ARE CHECKED. 


LIKELY FAULT LOCATION: M8921,SLAVE CABLE, MB903YA 


CIRCUIT PRINT REFERENCE . 
MOL TCCM7 M8908 , M8921 

WRL TCCM7 M8908 , M8921 

DPR TCCM? 


TCCM7 
BOT TCCM7 ,MB908YA M8921 
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LOGIC TEST #15: STATUS AT BOT,OFFLINE,LOADED, NO WRITE RING 


PURPOSE: TO TEST ATA,DPR,DRY,SSC 


PROGRAMMED SEQUENCE: OPERATOR IS INSTRUCTED TO TAKE DRIVE 
OFFLINE: ATA,SSC,DPR,DRY ARE CHECKED. 


LIKELY FAULT LOCATION: M8921,M8903YA,M8909,SLAVE CABLE 


CIRCUIT PRINT REFERENCE 
SSC M8921, TCCM7 
ATA MBI3 


LOGIC TEST #16: STATUS AT EOT,ON LINE, LOADED, NO WRITE RING 


PURPOSE: TO TEST EOT,SSC.,SLA 


PROGRAMMED SEQUENCE: THE OPERATOR IS INSTRUCTED TO MOVE TO EOT 
AND PLACE THE DRIVE ON LINE. EOT,SSC.SLA ARE CHECKED IN 
ADDITION TO ATA,MOL ,WEL.DPR,DRY 


LIKELY FAULT LOCATION: M8921,SLAVE CABLE ,M8903YA 


CIRCUIT PRINT REFERENCE 
SSC M8921, 1CCM7 
EOT TCCM7 ,M8908YA,M8921 


SLA TCCM? M8921, YC M8908 
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LOGIC TEST #17: STATUS AT ONLINE LOADED 


TEST 17 IS EXACTLY LIKE TEST 16 EXCEPT THAT THE DRIVE IS 
REVERSED OFF OF EOT AND THE WRITE ENABLE RING IS INSTALLED. 


eeeeeeeet eee eee ee eeeeeeeeeeeeteeeeeeeeteeeeerett 
EACH OF THE NEXT 11 TESTS ARE DESIGNED TO VERIFY 
THE ABILITY TO SET SPECIFIC ERROR BITS. 


SRETAAAEAAAAAAAAARAAAAARAAAEARAKEEAERAEETEAAAETERAEEEE SE 


LOGIC TEST #20: ILLEGAL FUNCTION 


PROGRAMMED SEQUENCE: THE WORD COUNT IS SET TO -1. ALL CODES 
STORED IN THE ILLEGAL FUNCTION TABLE ARE LOADED AND ILF IS 
CHECKED FOR EACH ONE. THEN UNEXPECTED ERRORS ARE CHECKED. 


LIKELY FAULT LOCATION: M8909 


CIRCUIT PRINT REFERENCE 
SET ILF DECODE MBI5,MBI7 
ILF FLOP MB111 


ILF MULTIPLEXER MB110 
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LOGIC TEST #21: REGISTER MODIFICATION REFUSED 


PROGRAMMED SEQUENCE: INIT, SELECT SLAVE AND DRIVE. LOAD 300 

@ TAPE CONTROL REGISTER LOAD WAMS IN THE MAINTENANCE 

REGISTER. LOAD THE C1 REGISTER WITH A READ COMMAND AND GO 

BIT. ATTEMPT TO WRITE THE FRAME COUNT REGISTER. READ 

ERROR REGISTER. CHECKING FOR RMR. CHECK FOR UNEXPECTED ERRORS 
WAIT FOR ACCL. DELAY. DO EOP CLEAR. 


LIKELY FAULT LOCATION: M8909 


CIRCUIT PRINT REFERENCE 
RMR DECODE MBI2 

RMR FLOP MBI11 

RAR MULTIPLEXER MB110 


LOGIC TEST #22: CONTROL BUS PARITY (CPAR) 


PROGRAMMED SEQUENCE: WRITE 20(8) INTO CS2. ENABLING THE 
WRITING OF EVEN PARITY ON MASSBUS. WRITE ALL ONES TO 

FRAME COUNT. RESET PAT. CHECK ERROR REGISTER FOR CPAR CHECK 
FOR OTHER UNEXPECTED ERRORS. 


LIKELY FAULT LOCATIONS: M8909 


CIRCUIT : PRINT REFERENCE 
MASSBUS PARITY TREE MBI14 
CPAR FLOP MB111 


CPAR MULTIPLEXER MB110 
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PROGRAMMED SEQUENCE: AN ILLEGAL FORMAT CODE IS LOADED INTO 
THE TAPE CONTROL REGISTER. WAMS IS LOADED INTO THE MR 

READ COMMAND AND THE GO BIT IS SET. THE ERROR 

REGISTER IS CHECKED FOR FORMAT ERROR AND UNEXPECTED ERROR 
BITS. THIS SEQUENCE IS REPEATED FOR ALL ILLEGAL FORMAT CODES 


LIKELY FAULT LOCATIONS: M8905YA,M8906 ,M8909 


CIRCUIT PRINT REFERENCE 
FORMAT BITS MR6 

ILF DECODE BF3 

ILF FLOP MBI11 

ILF MULTIPLEXERS MB110 


LOGIC TEST #24: DATA BUS PARITY ERROR (DPAR) 


PROGRAMMED SEQUENCE: SET UP A WRAP 2 AS FOLLOWS: 

NORMAL FORMAT ~----> TAPE CONTROL REGISTER, -10 ----> WORD 
COUNT, -20 ---=-> FRAME COUNT, WAM2 ----> MAINTENANCE RE- 
GISTER,. LOAD WRITE COMMAND AND GO BIT. SET PAT BIT IN 
CS2. AFTER A DELAY MR IS LOADED 4 TIMES CAUSING 2 DATA 
BUS TRANSFERS. DPAR AND CPAR ARE CHECKED. THEN A CHECK 
FOR UNEXPECTED ERRORS IS MADE MASKING OPI. 


LIKELY FAULT LOCATIONS: DBUS LINES, M8905YA, M8906 


CIRCUIT PRINT REFERENCE 
MM CLK MR5 

WRT CLK GENERATION TCCM4 

DPAR FLO MBI11 


p 
DATA BUS PARITY TREE BF3 
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LOGIC TEST #25: NON-EXECUTABLE FUNCTION (NEF) 


PROGRAMMED SEQUENCE: LOAD FC WITH -1. SET WAM 2. SET 
WRITE AND GO. ILF SHOULD SET DUE TO TOO SMALL INITIAL 
FRAME COUNT. CHECK ILF. CHECK FOR UNEXPECTED ERRORS. 


LIKELY FAULT LOCATION: M8909 


CIRCUIT PRINT REFERENCE 
NEF FLOP MB111 
NEF MULTIPLEXER MB110 
SET NEF MBI7 


LOGIC TEST #26: FRAME COUNT ERROR 


PROGRAMMED SEQUENCE: SET WC TO -10, FC TO -20 WAM3 IN 
MAINTENANCE REGISTER, LOAD WRITE AND GO, DELAY ISSUE MM OR 
CLEAR. CHECK FCE AND CHECK FOR UNEXPECTED ERRORS. FRAME 
COUNT ERROR SHOULD BE SET BECAUSE A WRITE OPERATION WAS 
TERMINATED PRIOR TO A WORD COUNT OVERFLOW. 


LIKELY FAULT LOCATIONS: M8909, MB CABLE, M8903YA, M8905YA 


CIRCUITS PRINT REFERENCE 
RUN LINE MB1 

EBL PLS MBI9 

FCE FLOP MBI11 

SHUTDOWN LOGIC TCCMS 


MAINT. FUNCTION DECODE MRS 
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LOGIC TEST #27: ILLEGAL REGISTER 


PROGRAMMED SEQUENCE: IF THE RH HAS ALL MASSBUS REGISTER 
OPEN (MOST SYSTEM IN THE FIELD DON'T), ALL THE ILLEGAL 
REGISTER ADDRESSES ARE READ, CHECKING THE ILR BIT AFTER 
EACH ATTEMPT. 


LIKELY FAULT LOCATIONS: MASSBUSS, M8909 


CIRCUITS PRINT REFERENCE 
REGISTER SELECT LINES MB1, MB2 
REGISTER SELECT DECODE MBI2 

ILR FLOP MBI11 


LOGIC TEST #30: DRIVE TIMING ERROR 


THE MAINTENANCE REGISTER IS LOADED WITH A FUNCTION THAT 

IS DESIGNED TO CRIPPLE OCCUPIED. FRAME COUNT REGISTER IS 
CLEARED TO SET FCS LOAD WRITE COMMAND AND GO BIT. CHECK 
FOR DTE. THEN DRIVE IS INITIALIZED. FCS IS SET AND a 

3 CODE IS LOADED INTO MR. WRITE COMMAND AND GO BIT ARE 
SET. AFTER DELAY FOR ACCELERATION, THE MR CLOCK IS GENERATED 
AND ANOTHER CHECK IS MADE FOR DTE. FINAL CHECK IS MADE 
FOR ERRORS OTHER THAN OPI. THE FIRST MAINTENANCE REGISTER 
CODE WHICH CRIPPLES THE OCCUPIED RECEIVER CAUSES OCCUPIED 
TO BE ASSERTED AND TESTS THE CIRCUITRY WHICH CHECKS FOR 
OCCUPIED WHEN A DATA TRANSFER COMMAND IS INITIATED. THE 
SECOND TEST UTILIZES THE FACT THAT THE WRP 3 CODE INHIBITS 
THE MASSBUS WCLK RECEIVER CREATING A SITUATION WHERE SCLK 
IS NOT FOLLOWED BY A WRITE CLOCK. 


LIKELY FAULT LOCATIONS: M8909, M8905YA, M8906, MB CABLES 


CIRCUITS PRINT REFERENCES 
DTE FLOP MBI11 

CRIPPLE OCCUPIED FUNCTION MR5 

WRP 3 FUNCTION MR5 

PREVIOUS OCCUPIED CHECK MBI7 

CHECK FOR WCLK BF2 


MM CLK MR5 
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LOGIC TEST 31: OPERATION INCOMPLETE (OPI) 


SET UP INCLUDES FORMAT, WRP 2 (BIT FIDDLER WRITE), FCS. 
WRITE COMMAND AND GO BIT ARE SET AND THE PROGRAM DELAYS 
FOR OPI. A SECOND TEST INVOLVES SETTING UP WRP 3 AND 
ISSUING A READ COMMAND. ESSENTIALLY THIS TEST UTILIZES 
THE WRAPAROUND CODES TO PREVENT ANY RECORDS BEING DETECTED 
AFTER A READ OR A WRITE COMMAND IS ISSUED. 


LIKELY FAULT LOCATIONS: M™8903Ya, M8909 


CIRCUITS PRINT REFERENCES 
OPI TIMER TCCM5 
OPI FLOP MBI11 
OPI TIMER CONTROL MBI7 


LOGIC TEST 32: UNSAFE (UNS) 


A NON~EXISTANT SLAVE IS SELECTED AND A READ COMMAND IS 
ISSUED. UNSAFE ERROR IS CHECKED. 


LIKELY FAULT LOCATIONS: M8909, M8921, SLAVE CABLE 


CIRCUITS PRINT REFERENCES 
UNSAFE FLOP MBI11 
SET UNSAFE MBI7 


MOL GENERATION M8921 
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LOGIC TEST 33: POSITIONING IN PROGRESS (PIP) 


SET UP DRIVE AND SLAVE ARE SELECTED, FCS IS SET. A SPACE 
COMMAND IS ISSUED AND PIP IS CHECKED. 


LIKELY FAULT LOCATIONS: M8909, M8905YA 


CIRCUITS PRINT REFERENCES 
SPACE FUNCTION DECODE MBI5 

PIP GENERATION TCCM? 

STATUS REGISTER TCCM? 


LOGIC TEST 34: PHASE-ENCODED STATUS (PES) 


DENSITY CODES 0 - 4 ARE LOADED AND PES IS CHECKED FOR EACH 
CODE. IT IS EXPECTED ONLY FOR DENSITY 4. 


LIKELY FAULT LOCATIONS: MB905YA, SLAVE BUS, M8921, MB8905YA 


CIRCUITS PRINT REFERENCES 


DENSITY BITS MR6 
DENSITY LINES SBC 
PES CIRCUIT Sc3 


PES STATUS BIT TCCM7 
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LOGIC TEST 35: TAPE CONTROL WRITE (TCW) 


SETUP FORMAT AND WRP-3 ARE SET, READ COMMAND IS ISSUED. 
TCW IS CHECKED. DRIVE IS INITIALIZED, TAPE CONTROL REG- 
ISTER IS WRITTEN TO AND TCW IS CHECKED. 


LIKELY FAULT LOCATION: M8905YA 


CIRCUIT PRINT REFERENCES 


LOGIC TEST 36: FRAME COUNTER STATUS (FCS) 


DRIVE IS INITIALIZED, FCS IS CHECKED, DRIVE IS INITIALIZED, 
FRAME COUNTER IS WRITTEN TO, AND FCS IS CHECKED. 


LIKELY FAULT LOCATIONS: M8909, M8903YA 


CIRCUITS PRINT REFERENCES 


FCS BIT MBI8 
FCS MULTIPLEXER TCCM7 
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LOGIC TEST 37: ACCELERATION (ACCL) 


DRIVE IS INITIALIZED, FORMAT IS SET AND ACCL IS CHECKED 
FOR ONE. WAM 3 CODE IS LOADED, READ COMMAND IS ISSUED. 
AFTER A DELAY ACCL IS CHECKED FOR ZERO. 


LIKELY FAULT LOCATIONS: MB8°03YA, M8921 


CIRCUITS PRINT REFERENCES 


ACCL BIT, MOTION DELAY COUNTER TCCMS 
CLOCK SC2 


LOGIC TEST 40: PE TAPE MARK (TM) 


PROGRAMMED SEQUENCE: 


DRIVE IS INITIALIZED, WAMO IS SET, WRITE TAPE MARK IS SET. 
AFTER DELAY TAPE MARK BIT IS CHECKED. WAMO MULTIPLEXES 

THE OUTPUT OF THE WRITE DATA GENERATOR ONTO THE RDA LINES. 
THE DATA SYNC MODULES SYNC ON THE DATA AND SEND ENVELOPE 
INFORMATION TO THE TAPE MARK DETECTOR ON M8902YA. 


LIKELY FAULT LOCATIONS: MB8902VYA, MB901YA, MB903SYA, MB905YA 


CIRCUITS PRINT REFERENCES 
TAPE MARK DETECTOR TCPES, TCPES 
TAPE MARK MULTIPLEXER TCCH7 

ENVELOPE SIGNALS 3, 3. 7 
WRITE DATA BUFFER TCCM2 

RDA MULTIPLEXERS TCCM6 

WRITE TAPE MARK FUNCTION MBI5 


WAMO SIGNAL MR5 
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LOGIC TEST 41: WRZ TAPE MARK (TM VPE, ITM) 


SAME AS TEST 40 EXCEPT NRZ DENSITY IS SELECTED. 
LIKELY FAULT LOCATIONS: M8903YA, M8904 


CIRCUITS PRINT REFERENCES 
WRITE DATA BUFFER TCCM2 
RSDO MULTIPLEXER TCCM6 
RDA MULTIPLEXERS _  -‘TCCh6 
TA DETECTOR CNRZ4 
ILLEGAL TAPE MARK FLOP CNRZ4 


**SEE NOTE ON PAGE 22 FOR TESTS 42-56** 
LOGIC TEST 42: WRP3, NRZ, NORMAL, ODD (BIT FIDDLER READ) 


PROGRAMMED SEQUENCE: 


TAPE CONTROL REGISTER IS LOADED WITH DENSITY 3, FORMAT 14, 


ODD PARITY WRP3S IS LOADED IN MAINT. REGISTER. READ FUNCTION PS e* i 
IS LOADED, EXECUTING WRAPS CONSISTS LOADING DATA CHARACTERS ee 


INTO MAINT. REGISTER DATA FIELD, WHERE THERE ARE MULTI- ; 7 . 
PLEXERS TO BIT FIDDLER, MM CLK IS TOGGLED TO CREATE RDS. 

THE BIT FIDDLER TRANSMIT DATA ACCESS MASSBUS DATA LINES. | 

WHEN ALL THE DATA HAS BEEN TRANSMITTED AN EOR CLK IS 

TRANSMITTED TO N REGISTER WHICH BRINGS OPERATION TO A CLOSE. 


LIKELY FAULT LOCATIONS: 8906, MB905YA, MASSBUS P-LINES 


CIRCUITS PRINT REFERENCES 
MASSBUS CHAR. ASSEMBLE BF5 

CLK. GENERATOR BF2 

MAINT. REGISTER DATA FIELD MR2, MRS 

ROS GENERATION MRS 
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LOGIC TEST 43: WARP3, PE, NORMAL, ODD 


JUST LIKE TEST 42 EXCEPT FOR DENSITY BITS. 


LOGIC TEST 44: WRAP2, NRZ, NORMAL, ODD 


WRAP2 IS BIT FIDDLER WRITE. MM LLOCK IS MULTIPLEXED INTO 
WRT CLK SO THAT IT FORMS WRT STROBE. THE OUTPUT OF THE 

BIT FIDDLER IS CLOCKED INTO THE DATA FIELD OF THE MAINT- 
ENANCE REGISTER. SET UP CONSISTS OF MOVING NRZ, NORMAL 
FORMAT, ODD PARITY TO UNIT DESCRIPTION MAINT. REGISTER 

IS LOADED WITH WAM2 WRITE COMMAND IS ISSUED. AFTER THE 
ACCELERATION DELAY, MM CLOCK ARE GENERATED UNTIL ALL THE 
DATA HAS BEEN CLOCKED. SEQUENCE IS COMPLETED BY LOADING 
MANTENANCE REGISTER WITH EOR CLR. THE SEQUENCE IS REPEATED 
WITH VARYING DATA PATTERNS. 


LIKELY FAULT LOCATIONS: M8906, M8905YA, M8903YA 


CIRCUITS PRINT REFERENCES 
BIT FIDDLER CHAR UNPACK BF4 

BIT FIDDLER DATA REQUEST BF2 

WRT STRB TCCM4 


MAINT. REG. DATA FIELD MR2, MR3 
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LOGIC TEST 45: WRP2, PE. NORMAL, ODD 


THE TEST IS EXACTLY LIKE TEST 44 EXCEPT THAT PE WRT CLK 
ENBL L MUST BE ASSERTED BY M8902YA TO ENABLE WR TO STROBE. 
THIS DOES NOT HAPPEN UNTIL THE PE WRITE CONTROL CIRCUIT 
HAS CLOCKED THROUGH THE PREAMBLE. 


CIRCUITS PRINT REFERENCES 


(IN ADDITION TO TEST 44) 
PE WRITE CONTROL TCPES 


LOGIC TEST 46: WRP1, NRZ, NORMAL, ODD 


THIS TEST IS EXACTLY LIKE TEST 44 EXCEPT THE WRITE BUFFER 
(TCCM2) IS MULTIPLEXED TO THE MAINTENANCE REGISTER. 


LIKELY FAULT LOCATIONS: M8903YA, M8904 (CRC GENERATOR) 


CIRCUITS PRINT REFERENCES 
WRITE BUFFER TCCM2 
CRC GENERATOR CNRZ2 , 


LOGIC TEST 47: WRAP1, PE, NORMAL, ODD 


IN PE MODE BOTH THE PREAMBLE AND POSAMBLE ARE CLOCKED 
THROUGH THE WRITE BUFFER IN ADDITION TO PHASE ENCODED DATA. 


LIKELY FAULT LOCATIONS: MB8902YA (WRITE CONTROL STATES), M89035YA 


CIRCUITS PRINT REFERENCE 


WRITE BUFFER TCCM2 
WRITE CONTROL TCPES 
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LOGIC TEST 50: WRAPO, NORMAL, ODD 


WRAP 0 IS THE MOST COMPLETE OF THE TMO2 WRAPAROUND DATA 
PATH. IT CONSISTS OF A WRITE OPERATION IN WHICH THE OUT- 
PUT OF THE WRITE DATA BUFFER IS MULTIPLEXED TO THE READ 

DATA INPUTS, CHECKED AND LOADED INTO THE MAINTENANCE REG- 
ISTER FOR RETRIEVAL BY THE PROCESSOR. THE WHOLE OPERATION 
USES THE TYPE SYSTEM CLOCKS AND HAPPENS AT THE PROPER 

DATA RATES. MM CLK SERVES AS A FLAG ANNOUNCING WHEN A 

NEW CHARACTER HAS BEEN LOADED INTO THE MAINTENANCE REGISTER. 
IN PE MODE EVERY OTHER CHARACTER IS READ TO ALLOW SUFFICIENT 
PROCESSOR LOOP TIME. IN NRZ WRAP 0 IS EXPECTED TO PRODUCE 
LRC ERRORS BECAUSE THE TMO2 DOES NOT WRITE THE LRC CHARACTER. 


LIKELY FAULT LOCATIONS: 8904, M8903YA 


CIRCUITS PRINT REFERENCES 
CRC GENERATOR CNRZ2 

CRC CHECKOUT CNRZ3 

CRC, CRC STROBE TCCA4 

READ LINE MULTIPLEXERS TCCM6 

MM CLK MRS 

CRC READ TIMING CNRZ4 

SHUTDOWN CIRCUITRY TCCMS 


LOGIC TEST 51: WRPO, PE, NORMAL, ODD 


CIRCUITS PRINT REFERENCES 
DATA DISCRIMINATOR DS2, DS4, DS6 
PHASE LOCKED CLOCK DS3, DS5, DS? 
SKEW BUFFER DS3. DSS, DS? 
PE WRITE MAJOR STATES TCPES 
PE READ MAJOR STATES TCPES 


WRAP 0 CIRCUIT TO BLOCK RLT RDS_ TCPE3S 
DESKEW BUFFER READ COUNTER TCPE4 
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LOGIC TEST 52: CORE DUMP WRITE, WAM2 


Md OF TEST 44 EXCEPT BIT FIDDLER OPERATES IN CORE DUMP 


LIKELY FAULT LOCATION: M8906 


LOGIC TEST 53: CORE DUMP READ, WAMS 


are OF TEST 42 EXCEPT BIT FIDDLER OPERATES IN CORE DUMP 


LIKELY FAULT LOCATION: M8906 


LOGIC TEST 54: EVEN PARITY WRITE - WAM1 


REPEAT OF TEST 46 EXCEPT EVEN PARITY IS SPECIFIED. 
LIKELY FAULT LOCATION: M8903YA 


LOGIC TEST 55: EVEN PARITY READ: WAMO, 


REPEAT OF TEST 50 EXCEPT EVEN PARITY IS USED. 
LIKELY FAULT LOCATIONS: MB8903YA, M8904 
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LOGIC TEST 56: READ REVERSE, WAM3 (M8906) 


REPEAT OF TEST 42 EXCEPT READ REVERSE COMMAND IS ISSUED. 
LIKELY FAULT LOCATIONS: M8908, M8909 


**NOTE: FOR TESTS 42-56** 


FOR THE MOST PART, THIS DIAGNOSTIC TESTS PARTICULAR 

AREAS OF THE TMO2 LOGIC INDEPENDENT OF THE TU45. HOWEVER 
THERE ARE A FEW SIGNALS WHICH ARE REQUIRED FROM THE TU45 

TO COMPLETE THE TESTS, AND AT LEAST ONE CASE WHERE TU45 
FAILURES INTERFERE WITH THE TESTS. THE KNOWN CASES ARE 
LISTED HERE AND SHOULD BE CHECKED AS PART OF THE DEBUGGING. 


1, MOL(SB)L: REQUIRED TO ENABLE CLOCK 

2. CLOCK(SB)L: REQUIRED TO GENERATE ACCELERATION AND SHUTDOWN. 

. WRITE CLOCK(SB)L: USED IN WAMO TO GENERATE DATA AND REC(SB)L 

. RSDO(SB)L: SHOULD NOT OCCUR DURING WRAP AROUND TESTS, BUT WILL 
INTERFERE WITH THEIR OPERATION IF CAUSED BY A FAILURE 
SUCH AS A GROUNDED OUTPUT FROM THE READ CHAIN. 


ew 
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THE NEXT 5 TESTS CONSISTS OF WRITING ON TAPE USING MAIN- 
TENANCE MODE FUNCTIONS TO FORCE ERROR CONDITIONS TO CHECK 
THE ERROR CHECKING CAPABILITIES. OCCASIONAL ERRORS MAY 
RESULT FROM TAPE DEFECTS. CONSTANT ERROR MAY BE THE 
RESULT OF PROBLEMS WITH ERROR CHECKING CIRCUITRY OR 
PROBLEMS WITH THE DRIVE. DEBUG OF THE PROBLEMS MAY BE 
EASIER USING DATA RELIABILITY OF UTILITY DRIVER. 


LOGIC TEST 57: CYCLIC REDUNDANCY ERROR 


FIRST THE DIAGNOSTIC PERFORMS A WRAPO DESIGNED TO LOAD 
THE CRC CHECKER IN A KNOWN MANNER. CHECK ARE MADE FOR 
LRC ERROR AND THE CONTENT OF CRC REGISTER. THEN A WRITE 
OPERATION IS PERFORMED USING A MAINT. MODE (IICC) WHICH 
INHIBITS THE INITIALIZATION OF THE CRC CHECKER. THE CRC 
CHECKER LOGIC WHICH HAS NOT BEEN CLEARED SHOULD DETECT 

A CRC ERROR. UNEXPECTED ERROR BITS MAY INDICATE PROBLEMS 
WITH THE WRITE OPERATION. 


MM FUNCTION DECODE MR5 
CRC CHECK CIRCUIT CNRZ3 


"3 
TMO2/TUS5 CONTROL LOGIC TEST MACY11 30(1046) 22-JUN-78 08:58 PAGE 33 
CZTUKA.P11 12-JUN-78 16:17 SEQ 00355 


(PAGE 31) 
LOGIC TEST 61: PE CORRECTABLE DATA 


A PE WRITE OPERATION IS PERFORMED USING A FUNCTION WHICH 
WILL GROUND THE BIT STROBE LINE ON BIT 1. THIS SHOULD 

CAUSE THE BIT1 DEAD TRACK FLOP TO ASSERT AND CAUSE COR- 
cen at a. ERROR. THE DEAD TRACK REGISTER IS CHECKED 


LIKELY FAULT LOCATIONS: M8905Ya, M8901YA, M8902YA 


CIRCUITS PRINT REFERENCES 
MM FUNCTION DECODE MR5 

BIT STROBE CIRCUIT DS4 

DEAD TRACK FLOP DSS, TCPE2 
DEAD TRACK REGISTER MR4 


LOGIC TEST 62: PE INCORRECTABLE DATA 


REPEAT OF TEST 61, EXCEPT THAT THE MAINT. MODE FUNCTION 
GROUNDS BITS STROBE FOR BITS 1, 2 AND THE WD LINE FOR BIT 
5 IN HELD ASSERTED. INC. DATA AND PCF ERRORS ARE EXPECTED. 


LIKELY FAULT LOCATIONS: M8902YA, MB901YA 


CIRCUIT PRINT REFERENCE 


INC ERROR, PEF, TCPE2 
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LOGIC TEST 63: PE FORMAT 


THE MM FUNCTION USED IN THIS TEST INVERTS THE DATA USED 
IN PREAMBLE AND POSTAMBLE OF BIT ONE. 


LIKELY FAULT LOCATIONS: M8902YA, M8903YA, MB8905YA 


CIRCUITS PRINT REFERENCES 
PEF. TCPE2 

WRITE BUFFER ; TCCM2 

MM DECODE MRS 


LOGIC TEST 64: FRAME COUNT OVERFLOW 


THIS TEST USES A WRAP2 TO CHECK THE OVERFLOW OF FRAME 
COUNT REGISTER. 


LIKELY FAULT LOCATION: M8909 


FRAME COUNT REGISTER MBI8 
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?. LISTING 
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CZTUKA.P11 12-JUN-78 16:17 SEQ 0036 
1372 -LIST  SEQ,LOC.BIN 
1373 -TITLE TMO2/TU4S CONTROL LOGIC TEST 
1374 > CZTUKAO 
1375 7:25 MAY 78 
1376 7R. BARNES/R. J. COLLINS 
1377 
1378 -ENABLE ABS 
1379 
1380 
ie :CONSOLE SWITCHESteteteeee 
1383 :SW15: 1=HALT ON ERROR 
1384 : O=CONTINUE 
1385 :SW14: 1=LOOP ON ERROR 
1386 : O=CONTINUE 
1387 :$W13: 1=D0 NOT PRINT ERRORS 
1388 : O=PRINT ERRORS 
1389 :SW12: 1=INHIBIT ITERATIONS 
1390 2 0=D0 ITERATIONS 
1391 :SW11: 1=CONTINUOUS CYCLE 
1392 ; O=HALT AT END OF PASS 
1393 :SW10: 1=HALT AT END OF EACH TEST 
1394 : O=CONTINUE 
1395 :SW9: 11=D0 MANUAL INTERVENTION TESTS 
1396 : O=INHIBIT MANUAL INTERVENTION 
1397 :SW8: 1=NO WRAP DATA CHECK 
1398 : 0=DO WRAP DATA CHECK 
1399 :SW7: 1=NO WRAP STATUS CHECK 
1400 : 0=DO WRAP STATUS CHECK 
1401 7SW6: 1=SELECTABLE WRAP DATA PATTERN (IN SINGLE TEST) 


: O=AUTO PATTERNS 
1403 ;SWO-5: SELECT TEST NUMBER :: OO=ALL TESTS 


TMO2/TU4S5 CONTROL LOGIC TEST 
12-JUN-78 16:17 


CZTUKA.P11 


ed ed ed cd ed cd ce ceed ced ee ed cd ed ed ed wd ed we wd ed ed ed ed ed od od ed ed 
ed 8 EE GE UE UE GE GED 90 (PD PO PD PPD DD PD PD 9 SS A 
© OB NOAA EWN O ODNOULS WN $$ O O@OnNAULwNr 


Se ee ee ee ee ee ee ee ee ek ee ek ek el ek et et et et et et et et et et 
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:TUGS REGISTER BlTSeeereeerer 


315 314 313 512 311 310 309 508 ;07 ;06 ;05 ;04 ;03 ;02 ;01 ;00 ; 
TEM TERTTETTETTTETTTEAT RETR ETT ETT TEETER TREE RETR 
:SC + TRE; SACP; SPR: DNA; PSL; sANT; 7A16; ROY; IE + FUN; FUN: FUN; FUN; FUN; GO ; 


#900430000000130000001303050001300050013000000 0000001000000 


; COUNT ; 
b ANAM KK I III I OO OOOO OO 


> BU : 
: ADDRESS 

+ -CRREeeeee 
: COUNT : 
#9009000 30008000000000 2000 
;DLT:WCE;UPE;NED:NEM:PGE;MXF :MDP;OR ;1R ;CLR:PAT:BAI;U2 :U1 ;U0 ; 


STTTTITETTTTTTTTTTITETTTTTTETETTRTTTSTTTETTTTTITTOTERT RTE TTT ET 
SATASERR: PIP; MOL; WRL;EOT; SPR; DPR; DRY; SSC;PES; SDN; IDB; TMK;BOT; SLA; 


7700000000000 0000000000000 000000 OO OOOO OOOO OOK 
; CDE;UNS;OP1;DTE:NEF:CS ;FCE;NSG:PEF;INC;DAT; FMT; CNT:RMR: ILR; ILF ; 


CRC: 1TH: ; ,LRC;VPE;>BPE; :BPE; 
;. 


SUMMARY 
; ee 
: CHARACTER : 
. ESCs eee 


; BUFFER 
0000000000000 0000000000 00000 III TI 
; + 0B :DB 208 + 0B é +08 708 :DB ;WRT;MM ;OP ;OP :OP 20 oAR ; 
t-3 3:3 Baa SO see te £er. FF 
MTITITTTIITITTOLTITTLTTTTTLITTTTESTITTOITUETETCLTTRTEDITR SEITE RT 


: ¢ 7 5 SSL: : 


: TYPE SEN. 3. See. 

RTTITUNTITTLTTTELTTEITUTTTTRTETTLETTOTTETTCTETTRTOTETTTEOTTTETT. 
: L ; 
; NUMBER 


RITITITINTITTTTTTTTTTTTTTTTTTTTTITTETESTTETETTTETITTTTT TOTES eTeT 
sACL; sFCS; TCW; ENA; SPR; s DEN; DEN; DEN; FAT; FMT; FAT; FMT; sEVN; SSN; SSN; SSN; 


ee 4 ; 1; 83 4.3 ag ie 
£00030 0300100000 00 OOOO TID IOI 


SEQ 0037 
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CZTUKA.P11 12-JUN-78 16:17 SEQ 0038 
Le SREGISTER EQUI VStteeeeeece 
1452 000000 RO=20 
1453 000001 R1=21 
1454 000002 R2=%2 
1455 000003 R3=23 
1456 000004 R4=24 
1457 000005 R5=%5 
1458 000006 SP=%6 
1459 000007 PC=%7 
1460 ! 
1461 STRAP CATCHERS *tttteeecer 
1462 
1463 000000 = 
1464 000200 -REPT 200 
1465 +2 
1466 HALT 
1467 .ENDR 
1468 
Hp +4 sTTY INTERRUPT VECTOReteeeeeere 
1471 000060 -=60 
1472 000060 024316 TTINT sTTY INTERRUPT HEADER ADDRESS 
i 000062 000000 0 
yt sSTART ADDRESSteteecerere 
1477 000200 -=200 
1478 000200 005000 : CLR RO 
i #4 000202 000167 001206 JMP START sPROGRAM START 
1481 000210 -=210 
1482 000210 000240 NOP 
1483 000212 012700 000001 MOV #1,R0 ;SET NO HEADER FLAG 
Ube 000216 000167 001172 JMP START 
4 sTMO2 INTERRUPT VECTORetexaeeere 
1488 000224 =224 
1489 000224 024302 MTINT > TAPE INTERRUPT HANDLER ADDRESS 
by 000226 000340 340 


nN 3 
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CZTUKA.P11 12-JUN-78 16:17 SEQ 0039 

1492 

1493 000510 -=510 

Hr: sMASS BUS REGISTER EQUI VStetteeecese 
1496 000510 172440 C1: 172440 

1497 000512 172442 WC: 172442 

1498 000514 172444 BA: 172444 

1499 000516 172446 PC: 172446 

5 000520 172450 CS: 172450 

1501 172452 DS: 172452 

1502 000524 172454 ER: 172454 
1503 000526 172456 AS: 172456 

5 5 1724 CC: 172460 

1505 000532 172462 DB: 172462 

172464 MR: 172464 

1507 000536 172466 DT: 172466 
1508 000540 172470 SN: 172470 
HF 94 000542 172472 TC: 172472 
He : ILLEGAL FUNCTION CODES 
1513 000544 005405 ILFT: 5405 
1514 000546 007415 , 7415 
1515 000 016423 16423 
1516 000552 020437 20437 
1517 000554 022443 22443 
1518 000 025447 25447 
1519 000560 031455 31455 

1520 000562 033465 33465 
1521 000564 036475 36473 
1382 *CONSTANTSteeeeeeree 
1525 000566 177776 PSW: 177776 sPROCESSOR STATUS 
1526 000570 177570 SWR: 177570 sSWITCH REGISTER 
1527 000572 177560 TKS: 177560 sTTY READER STATUS 
1528 000574 177562 TKB: 177562 sTTY READ BUFFER 
1529 000576 177564 TPS: 177564 sTTY PUNCH STATUS 
1530 000600 177566 TPB: 177566 sTTY PUNCH BUFFER 
1531 000602 177777 SERNUM: 177777 sSERIAL NUMBER 
1532 000604 000 DRVTP: 011 sDRIVE TYPE 

1533 0 000020 ITAMT: 2 : ITERATION AMOUNT 
1534 0006 000224 VECT: 224 s INTERRUPT VECTOR(RH) 
1535 000612 172440 REGS: 172440 sSTARTING REGISTER ADDRESS 
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CZTUKA.P11 12-JUN-78 16:17 SEQ 06040 
ime sFLAGS AND COUNTERSteeeeceece 
1538 000614 000000 TOB 0 
1539 000616 000000 TI8 0 
1540 000620 000000 HDRFL: 0O 
1541 000622 000000 EMADDR: 0 
1542 000000 DRVN 0 
1543 000626 000000 TROO 0 
1544 000000 TROI 0 

000632 000000 TRO2 0 
1546 000000 TRO3 0 
1547 000636 000000 TROG 0 
1548 000640 000000 TROS 0 
1549 000642 000000 TROG 0 
1550 000644 000000 TRO7 0 
1551 000000 TRIO 0 
1552 000650 000000 TR11 0 
1553 000652 000000 TRI2 0 
1554 000654 000000 TRI5 0 
1555 000656 000000 TR14 0 
1556 000660 000000 TR15 0 
1557 000662 000000 NRZOF: 0 
1558 090664 000000 SLVN 0 
1559 000666 000000 PFLG: 0 
1560 000670 000000 RTRN 0 
1561 000672 000000 ERADD: 0 
1562 000674 000000 TEMP1: 0 
1563 76 000000 0 
1564 000700 000000 TEMPS: 0 
1565 000 000000 ITCNT: 0 
1566 000704 000000 SAV1 0 
1567 000000 SAV2 0 
1568 000 000000 SAV3 0 
1569 000712 000000 SCOLP: 0 
1570 000714 000000 ITRLP: 0 
1571 000716 ._ 000000 EXFL 0 
1572 000720 ‘000000 ATAF 0 
1573 000722 000000 SLAF 0 
1574 000724 000000 SSCF 0 
1575 000726 000000 ERRF 0 
1576 000730 000000 ASF 0 
1577 000732 000000 SCF 0 
1578 000734 000000 TREF 0 
1579 000736 000000 PEXFL: 0 
15 000740 000000 STFLG: 0 
1581 000742 000000 LTADD: 0 
1582 000744 000000 T24FL: 0 
1583 000746 000000 ADDFL: 0 
15 000750 000000 WAM 0 
1585 000752 000000 FUN 0 
15 000754 000000 DATC 0 
1587 000756 000000 WTAD 0 
1588 000760 000000 DATAD: 0 
1589 000762 000000 RDAD 0 
15 000764 000000 W2FLG: 0 
1591 0007 000000 DERFL: 0 


TMO2/TU4S CONTROL LOGIC TEST 
12-JUN-78 16:17 


CZTUKA.P11 


1608 


AMKSAAQO 
2 


me ee ee ee ee ee we ee ed et od od od 
AAAASAOSCAA CAH 

TORI RO PO A) — 2 et 2 = oe 
MEW — OVO WB NAUSwnrh—-oO 


001026 


001030 


001040 


001042 


001064 


000000 
000000 


000000 
000000 
000000 


000000 


000000 
016026 
016050 
016056 
016066 


000005 


000000 
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0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

¢ ;PASS COUNTER 
sEXPT WRAP STATUSt*teaeee 
0 

0 

0 

0 


sDATA PATTERN GENERATORS***+* 


DAT1 sALL ONE BITS 

DAT2 sALL ZERO BITS 

DATS ALTERNATING ONE/ZERO BITS 
DAT4 sALL BITS 0-377 


CORE DUMP PATTERNSteeeeee 


oH wt OO ON 
SN™N™N POP 


SEQ 0041 


TMO2/TUSS CONTROL LOGIC TEST 
12-JUN-78 16:17 


CZTUKA.P11 


NMNNN 


000000 


TSTTBL: 
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“LOGIC TEST ENTRY TABLEteeeeecers 


L 
LT311T 
LT32 


—E 4 
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CZTUKA.P11 12-JUN-78 16:17 SEQ 0043 
1688 001240 010420 T321AD: LT321T 
1689 001242 010536 T33AD: LT33 
1690 001244 010552 T33IAD: LT3351T 
1691 001246 010640 T34AD: L134 
1692 001250 010662 T341AD: LT341T 
1693 001252 011002 T35AD 
1694 001254 011016 T351AD: LT351T 
1695 001256 011154 T36AD 
6 1260 011170 T36IAD: LT361T 
1697 001262 011274 T37AD 
1698 264 011310 T371AD: LT371T 
6 66 011444 T40AD: LT4 

00 011466 T40IAD: LT40IT 
1701 001272 011572 T41AD: LT41 
1702 001274 011606 T41IAD: LT411T 
1703 001276 012040 T42AD: LT42 
1704 001300 012040 LT42 
1705 001302 012162 T43AD: L145 

001304 012162 LT43 
1707 001306 012252 T44AD: L144 
1708 001310 012252 LT44 
1709 001312 012370 T45AD: LT45 
1710 001314 012370 LT45 
1711 001316 012460 T46AD: L146 
1712 001320 012460 LT46 
1713 001322 012600 T47AD: LT47 
1714 001324 012600 LT47 
1715 001326 012674 TSOAD: LT50 
1716 001330 012674 LT50 
1717 001332 013012 TS1AD: LT51 
1718 34 013012 LT51 
1719 36 013102 TS2AD: LT52 
1720 001340 013102 LT52 
1721 342 013224 TS53AD: LT53 
1722 001344 013224 L153 
1723 346 013360 T54AD: LT54 
1724 00 013360 L154 
1725 001352 013436 TSS5AD: LT55 
1726 001354 013436 LT55 
1727 001356 013514 T56AD: L156 
1728 001 013514 L156 
1729 001362 3600 TS7AD: LT57 
1730 001 013632 TS7IAD: LT57I1T 
1731 001366 002032 TSCD2 
1732 001370 002032 TSCD2 
1733 001372 034402 T61AD 761 
17 001374 014432 T6OTIAD: LT61IT 
1735 001376 014666 T62AD 
1736 001400 014714 T621AD: LT62I1T 
1737 001402 015140 T63AD 
17 1404 015170 T63IAD: LT631T 
1739 001406 015420 T64AD 
1740 001410 015436 T64IAD: LT641T 
1741 001412 000000 TADX 0 


TMO2/TU45 CONTROL LOGIC 
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CZTUKA.P11 


001716 


012777 


012705 


TEST 
16:17 


000340 
000500 


177356 


000016 
000510 
000002 


000614 
090077 


027460 


000000 


MACY11 30(1046) 


177144 START: 


STO: 


ST1: 
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EVEN 
sPROGRAM START AND HOUSEKEEPING* tteennaee 


#340 ,aPSwW 
#500,SP 


ST2 
SKAT 
#ASG1,R4 
PC, TTOUT 
#ASG44 ,R4 


#6, 
#177000 ,R2 


0 
#MTINT, (RO)* 
#340, (RO) 


PC, Tour 


#5656, R4 
PC, TTOUT 
#STATC.RS 


;SET PRIORITY 


;SET STACK POINTER 


>CLEAR SKIP ADDRESS TEST FLAG 
;PRINT TITLE 
sREQUEST REGISTER ADDRESS 


;PRINT CURRENT ADDRESS 
:SET ADDRESS SAVE LOC 
>SET SIZE OF RESPONSE 
;SET UPPER LIMIT 

>SET LOWER LIMIT 

:GO GET RESPONSE 


sREQUEST VECTOR 


;PRINT CURRENT VECTOR 
>SET ADDRESS SAVE LOC 
:SET SIZE OF RESPONSE 
;SET UPPER LIMIT 
SET LOWER LIMIT 
:GO GET RESPONSE 


:GET VECTOR 

sLOAD INTERRUPT ADDRESS IN VECTOR 
;LOAD PRIORITY 

:GET START OF REGS 


:SET NUMBER OF REGS 
;GET START OF TABLE 
>BUILD TABLE 

;BUMP ADDRESS 

;SEE IF DONE 

: IF NOT: BR 


sCLEAR FLAGS + COUNTERS 


sPRINT NRZ ONLY REQUEST 


:SET SIZE OF ENTRY 
;SET UPPER LIMIT 
>SET LOWER LIMIT 
:GO GET RESPONSE 


sREQUEST STATIC ONLY 

;SET ADDRESS OF STATIC FLAG 
:SET SIZE OF RESPONSE 

;SET UPPER LIMIT 

;SET LOWER LIMIT 


SEQ 0044 


, G 4 
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CZTUKA.P11 12-JUN-78 16:17 SEQ 0045 
JSR PC,TIR >GET RESPONSE 


1798 001722 004767 622400 
1799 001726 005067 177064 ST2: CLR PCNTR ;CLEAR PASS COUNTER 


TMO2/TU45 CONTROL LOGIC 
12-JUN-78 


CZTUKA.P11 


ee eed ceed ee oe dd ed od od oO 
enw 


WWIIWI IWIN RIMM MM MMM — 
FUN — O CO@VNOUVFLWPY — OVO BraAQuvilwn—o 


uw 


> 4 ~ 


me me me me ee ee ae ed ed ed ed oe od od ot od od 7) = =) es) =o 


001732 


0 
002210 


000167 


TEST 
16:17 


177042 
176776 
176622 
177700 


001066 
000004 


176730 


000124 
176574 
176712 


002000 
176730 
176664 
176506 
177700 


000001 
000065 


001066 
176614 
176610 
000002 


027050 


004000 


000001 
176606 
177516 
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176756 


176706 


176530 


176640 


176620 


176560 
176552 


176376 


176610 


TSCD: 


TSCDO: 


TSCD1: 


TSCD2: 


TSCD3: 


STSCD: 


TEND: 


TENDX: 


: TEST SCHEDULARetteeeeere 


WPGFL 
STFLG 


@SWR,RO 
#177700,R0 
RO 


STSCO 
#TSTTBL,LTADD 
#4,LTADD 
LTADD,ITRLP 
#2, 1TRLP 


HDRFL 
@LTADD,RO 
0) 


(R 
#2000 ,aSWR 
TSCD3 


@SWR,RO 
#177700,R0 
RO 


TSCD 
#1,STFLG 
#65 .,R0 
TEND 


RO 


RO 
#TSTTBL .LTADD 
RO,LTADD 
LTADD,ITRLP 
#2, 1TRLP 
TSCD1 
#ASG41,R4 

PC, TTOUT 
PCNTR,R3 


PC ,OCTP 
#4000 ,aSwWR 
TENDX 
#1,SKAT 


PCNTR 
TSCD 


;CLEAR WRAP PATRN FLAG 
sCLEAR SINGLE TEST FLAG 


>GO SELECT SINGLE TEST 


:SET ITERATION ADDRESS 


:GO TO END ROUTINE 
;CLEAR PRINT HEADER FLAG 
:SET POINTER TO TEST 

:GO TO TEST 

;SEE IF HALT ON TEST 

:IF NOT: BR 


:CLEAR WRAP DATA GENERATOR FLAG 
:SE IF SINGLE TEST 
sIf NOT: BR 


sMASK TEST NUMBER 

;SEE IF RETURN TO ALL 

IF SO: BR 

>SET SINGLE TEST FLAG 

>SEE IF EXCEEDED TESTS 
IF SO: BR 


:SET TABLE MODIFIER 


;SET TEST POINTER 
;SET ITERATION POINTER 


:PRINT END OF PASS 


:PRINT PASS NUMBER 
sSEE IF HALT ON PASS 
:IF NOT: BR 


;SET SKIP ADDRESS TEST FLAG 
;BUMP PASS COUNTER 
sRESTART 


SEQ 0046 


TMO2/TUSS CONTROL LOGIC 
12-JUN-78 


CZTUKA.P11 


1850 
1851 


1852 002214 


oo 


SNS N NN NN 


SOOOSSOSeS?e 
CSONAOVULWN—OV0O@®@ 

So 

[>] 

™m 

Ww 

= 

nm 


1892 002440 


005767 


000167 


TEST 
16:17 


176574 
176512 


025473 
022324 
027614 
025454 
022306 
000624 
000001 
000007 
000000 
022024 
176366 


000010 
000040 
176170 
176154 
010000 
176254 


000022 
176242 


000020 


000001 
000002 


020042 
177366 
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176354 


176174 


176156 


176310 


176300 
176246 
176260 


LT1: 


LT1G0: 
LT1G: 


LT1A: 


LT1B: 


LTIC: 


LTIER: 


LTIER1: 
LTIER2: 


LT1X: 
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sLOGIC TEST 1: DRIVE ADDRESSING*teeeerenee 


SKAT :SEE IF SKIP ADDRESS TESTS 
LT1G0 :1F NOT: BR 

STFLG :SEE IF SINGLE TEST 
LT1X :IF NOT: BR 

#MSG2A,R4 

PC, TTOUT ;PRINT TEST INSTRUCTIONS 
#MSLT1,EMADDR  ;SET HEADER ADDRESS 
#MSG2,R4 

PC, TTOUT ;REQUEST DRIVE NUMBER 
#DRVN,RS 

#1,R1 

#7,R2 

#0,R3 

PC, TTR :GET DRIVE NUMBER 
TEMP1 :SEE IF ANOTHER DRIVE 
LTIX :1F NOT: BR 

R1 >SELECT DRIVE 0 
#10,R0 :SET NUMBER OF DRIVES 
#40,aCs INIT 

R1,aCs >SELECT DRIVE 

aci :ACCESS DRIVE 
#10000,aCS :SEE IF NED 

LT1B ;IF SO: BR 

DRVN,R1 ;SEE IF SHOULD BE NED 
LTIC :1F NOT: BR 

LTIER :ELSE GO TO ERROR 
DRVN,R1 :SEE IF SHOULD, BE NED 
LTIC ;1F SO: BR 

LTIER1 :ELSE GO TO ERROR 
LT1G ;1F DONE ALL: BR 

R1 :SELECT NEXT DRIVE 
LTIA : CONTINUE 

#1, EXFL SFLAG EXPT 

LTIER2 

#2, EXFL :FLAG NOT EXPT 
#MSG3,ERADD :FLAG CONDITION 
#LT1A,SCOLP :SET SCOPE ADDRESS 

PC .LTGER :GO PRINT LOGIC TEST ERROR 
LTIC : CONTINUE TEST 

TSCD2 :RETURN TO SCHED 


SEQ 0047 
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TMO2/TUS5 CONTROL LOGIC TEST MACY11 30(1046) 22-JUN-78 08:58 PAGE 48 


CZTUKA.P11 12-JUN-78 16:17 SEQ 0048 
Ub sLOGIC TEST 2: REGISTER ADDRESSING**txareene 
1896 002444 000240 LT2: NOP 
1897 002446 012777 000040 176044 LT2IT: MOV #40,aCS ; INIT 
1898 002454 016777 176144 176036 MOV DRVN,aCcs >SELECT DRIVE 
1899 002462 012767 027670 176132 MOV WASLT2,EMADDR ;SAVE LT2 HEADER ADDRESS 
1900 002470 000240 NOP 
1901 002472 012705 000510 MOV #C1,R5 ;SET ADDRESS OF FIRST REGISTER 
1902 002476 012700 000016 MOV #16,R0 :SET NUMBER OF REGISTERS 
1903 002502 012792 000626 MOV #TROO,R2 ;SET START OF REGISTER BUFFER 
1904 002506 011501 LT2A: MOV (R5),R1 
1905 002510 011112 MOV (R1), (R2) READ REGISTER 
1906 002512 032777 020000 175770 BIT #20000,aC1 ;SEE IF ERROR 
1907 002520 001402 BEQ LT2B : IF NOT: BR 
1908 002522 004767 000032 JSR PC,LT2ER1 s;ELSE GO TO ERROR 1 
1909 002526 000240 LT2B: NOP 
1910 002530 032777 000002 175766 BIT #2,@ER ;SEE IF ILR 
1911 002536 001402 BEQ LT2c ;IF NOT: BR 
1912 002540 004767 000034 JSR PC,LT2ER2 ;ELSE GO TO ERROR 2 
1913 002544 000240 LT2C: NOP 
1914 002546 022225 CMP (R2)+,(R5)+ ;BUMP ADDRESS 
1915 002550 005300 DEC RO 
1916 002552 001355 BNE LT2A ;CONTINUE FOR ALL REGISTERS 
1917 002554 000240 NOP 
1918 002556 000441 BR LT2Xx 
1919 002560 000240 LT2ER1: NOP 
1920 002562 012767 000002 176126 MOV #2,EXFL sFLAG NOT EXPECTED 
1921 002570 012767 025644 176074 MOV #MSG4,ERADD :POINT TO CONTROLLER ERROR 
1922 002576 000417 BR LT2ERG :GO TO ERROR 
1923 002600 000240 LT2ER2: NOP 
1924 002602 012767 000002 176106 MOV #2,EXFL sFLAG NOT EXPECTED 
1925 002610 012767 025662 176054 MOV #MSG5,ERADD sPOINT TO DRIVE ERROR 
1926 002616 000407 BR LT2ERG :GO TO ERROR 
1927 002620 000240 LT2ER3: NOP 
1928 002622 012767 000001 176066 MOV #1,EXFL >FLAG EXPECTED 
1929 0026350 012767 025644 176034 MOV #ASG4 ,ERADD :POINT TO DRIVE 
1930 002636 012767 002654 176046 LI2ERG: MOV #LT2LP,SCOLP ;SET SCOPE ADDRESS 
1931 002644 004767 017630 JSR PC,LTGER :GO PRINT 
1932 002650 000240 NOP 
1933 002652 000207 RTS PC sELSE CONTINUE 
1934 002654 005726 LT2LP: TST (SP)+ sRESET STACK 
1935 002656 000167 177624 JMP LT2A ; LOOP 
1936 002662 000240 LT2X: NOP 
1937 002664 004767 021232 JSR =. - PC, ITER ;GO SEE IF ITERATIONS 
1938 002670 000167 177136 JMP TSCD2 sRETURN TO SCHED 
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002674 


003054 


060240 
012767 


000167 


TEST 


78 16:17 


027747 


000010 


175556 
020000 


026153 
002714 
175514 
020640 


026127 
002734 
020616 


000401 
000010 


021046 
176752 
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175716 


175572 


175542 


175702 


175714 


175654 
175666 


LT3: 
LT3IT: 
LT3A: 


LT3B: 


LT3C: 


LTSER1: 


LT3ER2: 


LT3X: 


LT3XX: 
{ 
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;LOGIC TEST 3: CONTROL BUSteteteeees 


3A 
#MSG11,ERADD 
#LT3A,SCOLP 
@FC.R 
PC,LTGER1 
LT3B 
#"SG10,ERADD 


#LT3B,SCOLP 
a 


7 cea, 


:SET TEST HEADER 
;PRESET PATTERN 1 
;SET PATTERN CHANGE NUMBER 


:GO INIT 
WRITE 


IF SO 


:READ FC 
;SEE IF MCPE (RH) 


sir 


TO FC 
sSEE IF A (TMO2) 


O: BR 
:SEE IF DONE PATTERN CHANGES 
SIF SO: BR 


;CHANGE PATTERN 

; CONT INUE 

;SET ERROR CODE 
:SET SCOPE ADDRESS 


:GET DATA 
:GO DO ERROR 


:SET ERROR CODE 
:SET SCOPE ADDRESS 
:GO DO ERROR 


‘ IF DONE PATTERN 2 
O: BR 


SET PATTERN 2 

:SET PATTERN CHANGE NUMBER 
:DO PATTERN 2 

:GO SEE IF ITERATIONS 
;RETURN TO SCHEDULAR 


SEQ 0049 


CZTU 


UKA.P 


she J CONTROL LOGIC 
12-JUN- 


005767 


000167 


TEST 


78 16:17 


175730 
175646 
025756 


175530 


000010 


000040 
175434 
175344 
175320 


- 175456 


010000 
000050 
010000 
000046 


021770 


177662 
060001 


000002 
030031 


017140 


176464 


MACY11 50(1046) 


175334 
175326 


175414 


175404 
175302 
175344 


LT4: 


LT4G60: 
LT4G: 


LT4A: 


LT4B: 


LT4C: 


LT4D: 


LT4ER1: 


LT4ER2: 
LT4ERG: 


LT4X: 
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;LOGIC TEST 4: 


R 
#10,R0 
#40,aCcs 


LT4B 
#10000 ,R3 
LT4D 
LT4ER1 
#10000 R35 
LT4C 


LT4ER2 
#MSG30,R4 
PC, TTOUT 
aSNn,R3 
PC, SNPT 


#1,EXFL 
LT4ERG 
#2,EXFL 
#MSLT4 ,EMADDR 


SLAVE ADDRESSING teeenenene 


sSEE IF SKIP ADDRESS TESTS 
;IF NOT: BR 


; SEE If SINGLE TEST 
F NOT: BR 


;PRINT TEST INSTRUCTIONS 
;REQUEST SLAVE 


3GET SLAVE NUMBER 
3SEE IF SLAVE 

:I1F NOT: BR 

;SELECT SLAVE 0 

;SET NUMBER OF SLAVES 


: INIT 

sSELECT DRIVE 

;SELECT SLAVE 

:GET DS 

:SEE IF SHOULD HAVE SPR 
:IF SO: BR 

sSEE IF SPR 

:IF NOT: BR 

:GO TO ERROR 1 


;SEE IF SPR 
IF SO: BR 
:ELSE GO TO ERROR 


sPRINT SERIAL NUMBER TAG 
sPRINT SERIAL NUMBER 


;IF DONE ALL: BR 
;BUMP SLAVE 
; CONTINUE 


sFLAG EXPT: NOT RECEIVED 


sFLAG RECVD: NOT EXPT 
;SET LT4 HEADER 

;SET ERROR CONDITION 
;SET SCOPE ADDRESS 
:GO TO ERROR 

IF NO SCOPE: BR 
;RETURN TO SCHED 


SEQ 0050 
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TMO2/TUS5 CONTROL LOGIC op MACY11 30(1046) 


CZTUKA.P11 12-JUN-78 SEQ 0051 
rie sLOGIC TEST 5: MAINTENANCE REGISTER BIT TESTeeeteences 
2029 3346 000240 LT5: NOP 
2030 003550 012767 030110 175244 MOV #ASLTS,EMADDR ;SET TEST HEADER 
2031 003356 004767 020624 LTSIT: JSR - INIT ;GO INIi 
2032 3362 012700 000032 MOV #32 ,R0 ;SET LOOP FOR BITS 4-0 
2033 3366 5001 CLR R1 :SET TEST WORD 
2034 003370 010177 175140 LTSA: MOV R1,@MR ;SEND TEST WORD TO MR 
2035 0033574 017702 175134 MOV @MR ,R2 READ MR 
2036 3400 042702 177740 BIC #177740,R2 sMASK BITS 4-0 
2037 003404 020102 CMP R1,Re ;SEE IF EXPT = RECVD 
2038 3406 001402 BEQ LT5B :1F SO: BR 
2039 003410 000167 000064 JMP LTSER1 ELSE GO TO ERROR 1 
2040 003414 000240 LT5B: NOP | 
2041 003416 005300 DEC RO 
2042 003420 001402 BEQ LT5C :1F DONE LOOP: BR 
2043 003422 005201 INC R1 ;BUMP TEST WORD 
2044 003424 000761 BR LTSA ; CONTINUE LOOP 
2045 003426 000240 LT5C: NOP 
2046 003430 012701 000015 MOV 15,R1 :SET TEST WORD + WAM 3 
2047 003434 012700 001000 MOV #1000 ,R0 ;SET LOOP FOR BITS 15-7 
2048 003440 010177 175070 LT5D: MOV R1,@MR sLOAD MR 
2049 003444 017702 175064 MOV @MR Re READ AR 
2050 003450 042702 000140 BIC #140,R2 ;MASK OUT BITS 5.6 
2051 003454 020102 CMP R1,Re ;SEE IF EXPT = RECVD 
2052 003456 001402 BEQ LTSE ;IF SO: BR 
2053 003460 000167 000042 JMP LTSER2 sELSE GO TO ERR 2 
2054 3464 000240 LTSE: NOP 
2055 003466 005300 DEC RO 
2056 003470 0014351 BEQ LT5X :1F DONE LOOP: BR 
2057 003472 062701 000200 ADD #200,R1 sBUMP TEST WORD 
2058 003476 000760 BR LT5D ; CONTINUE LOOP 
2059 003500 000240 LTSER1: NOP 
2060 0035502 012767 026216 175162 MOV #MSG14 ,ERADD SET ERROR CODE 
2061 003510 012767 003370 175174 MOV #LTSA,SCOLP :SET SCOPE ADDRESS 
2062 003516 004767 020124 JSR PC ,LTGER1 :GO TO ERROR 
2063 005522 000167 177666 JMP LT5B ; CONTINUE 
2064 003526 000240 LTSER2: NOP 
2065 003530 012767 026233 175134 MOV #4SG15,ERADD SET ERROR CODE 
2066 003536 012767 003440 175146 MOV #LT5D,SCOLP ;SET SCOPE ADDRESS 
2067 003544 004767 020076 JSR PC ,LTGER1 :GO TO ERROR 
2068 003550 000167 177710 JMP LT5E ; CONTINUE 
2069 003554 000240 LT5X: NOP 
2070 355 05000 CLR RO 
2071 003560 032777 000100 174746 1$: BIT #100,aMR TEST FOR 200BPI CLOCK 
2072 003566 001012 BNE LTSXX : 
2073 003570 005200 INC RO TRY 65K TIMES 
2074 003572 001372 ! BNE 1$ 
2075 003574 012767 026251 175070 MOV #MSG15A,ERADD 
2076 003602 012767 003554 175102 MOV #LT5X,SCOLP 
2077 003610 004767 020032 JSR PC,LTGER1 
2078 003614 000240 LTSXX: NOP 
2079 003616 004767 020300 JSR PC, ITER ;GO SEE IF ITERATIONS 
soar 003622 000167 17620¢ JMP TSCD2 ;RETURN TO SCHED 
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soa ;LOGIC TEST 6: TC REGISTER BIT TESTeeeeteneen 
2084 003626 000240 LT6: NOP | 
2085 003630 012767 030154 174764 LT6IT: MOV #MSLT6,EMADDR: ;POINT TO LT6 HEADER 
2086 003636 012700 000003 MOV #3,R0 ;SET NUMBER OF TESTS 
2087 003642 005001 LT6A1: CLR R1 

4 004767 020336 LT6A: JSR PC, INIT1 :GO INIT 
2089 003650 000240 LT6B: NOP 
2090 003652 010177 174664 MOV R1,aTC sWRITE TC 
2091 003656 017702 174660 MOV aTc,Re ;READ TC 
2092 003662 042702 160000 BIC #160000 ,R2 MASK OUT TCW 
2093 003666 020102 CMP R1,R2 ;SEE IF EXPT = RECVD 
2094 003670 001402 BEQ LT6C IF SO: BR 
2095 003672 000167 000042 JMP LT6ER1 ;ELSE GO TO ERROR 
2096 003676 000240 LT6C: NOP 
2097 003700 032777 020000 174634 BIT #20000,aTC ;SEE IF TCW SET 
2098 003706 001002 BNE LT6D :1F SO: BR 
2099 003710 000167 000052 JMP LT6ER2 sELSE GO TO ERROR 
2100 003714 000240 LT6D: NOP 
2101 003716 005300 DEC RO 
2102 003720 001450 BEQ LT6Xx ;1F DONE ALL: BR 
2103 003722 022700 000001 CMP #1,R0 ;SEE IF RESET TEST 
2104 003726 001745 BEQ LT6A1 :1F SO: BR 
2105 003730 012701 017777 MOV #17777,R1 SET TEST WORD 
2106 003734 000167 177704 JMP LT6A :D0 SET TEST 
2107 003740 000240 LT6ER1: NOP 
2108 003742 012767 026323 174722 MOV #ASG18,ERADD ;SET ERROR CODE 
2109 003750 012767 003650 174734 MOV #LT6B8,SCOLP ;SET SCOPE ADDRES 
2110 003756 004767 017664 JSR PC ,LTGER1 :GO TO ERROR 
2111 003762 000167 177710 JMP LT6C ; CONTINUE 
2112 003766 000240 LT6ER2: NOP 
2113 003770 012767 0263507 174674 _ .. MOV #MSG17,ERADD >SET ERROR CODE 
2114 003776 010167 174702 MOV R1,SAV1 SAVE R1 
2115 004002 012701 000001 MOV #1,R1 SET EXPT = 1 
2116 004006 0605002 CLR R2 ;SET RECVD = 
2117 004010 012767 004032 174674 MOV #LTGER4,SCOLP ;SET SCOPE ADDRESS 
2118 004016 004767 017624 JSR PC,LTGER1 :GO TO ERROR 
2119 004022 016701 174656 | MOV SAV1.R 
2120 004026 000167 177662 JMP LT6D sELSE CONTINUE 
2121 004032 005077 174504 LT6ER4: CLR atc ;WRITE TO TC 
2122 004036 000167 177634 JMP LT6C ;LOOP ON ERROR 
2123 004042 000240 LT6X: NOP 
2124 004044 004767 020052 JSR PC, ITER ;GO SEE IF ITERATIONS 
182 004050 000167 175756 JMP TSCD2 ;RETURN TO SCHED 
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LOGIC TEST 7: FRAME COUNT BIT TEST#eeenaeaee 


#3,R0 
"a 
PC, INIT 
R1,aFC 


#MSG‘19,ERADD 
#LT7A.SCOLP 
PC,LTGER1 
LT7B 


#3,R0 
PC, ITER 
TSCD2 


;SET TEST NUMBER 
:SET TEST HEADER 
;SET TEST WORD 


:GO INIT 


;CLEAR FRAME COUNT 
READ FC 
> SEE If EXPT = RECVD 


:IF S$ 
ZELSE G0 TO ERROR 


>SEE IF DONE ALL 
IF SO: BR 

:SEE IF RESET TEST 
IF SO: BR 


:SET TEST WORD TO -1 
; CONTINUE 


:SET ERROR CODE 
:SET SCOPE ADDRESS 
:GO PRINT ERROR 
sELSE CONTINUE 


sRESET TEST AMT 
:GO SEE IF ITERATIONS 
sRETURN TO SCHED 


SEQ 0055 
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;LOGIC TEST 10: FUNCTION CODE BIT TESTexeenenece 


aci,R2 
#177701,R2 
R1,R2 
LT10B 
LT10E1 


#ASG20,ERADD 
#LT10A,SCOLP 
PC, ,LTGER1 
LT10B 


PC, ITER 
TSCD2 


#MSLT10,EMADDR 
RO 


>SET TEST HEADER 
7 SET twas 


:SET TEST 
>SELECT DRIVE 
“WRITE C1 


sREAD C1 . 
sMASK FUNCTION CODE 
:SEE IF EXPT = RECVD 


:1F SO: BR 
sELSE GO TO ERROR 


IF DONE ALL: BR 
; SEE If RESET TEST 


SSET TEST WORD 
:D0 SET TEST 


>SET ERROR CODE 
>SET SCOPE ADDRESS 
:GO PRINT ERROR 
sELSE CONTINUE 


:GO SEE IF ITERATIONS 
sRETURN TO SCHED 


SEQ 0054 
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2185 : 

AY sLOGIC TEST 11: GO BIT SET RESETeeeeeeaene 
2188 004350 000240 LT11: NOP 

2189 004352 012767 030337 174242 LT11IT: MOV #MSLT11,EMADDR ;SET TEST HEADER 
2190 004360 004767 017622 JSR PC, INIT1 :GO INIT 

2191 004364 017702 174120 MOV aci,R2 sREAD C1 

2192 004370 032702 000001 BIT #1,R2 ;SEE IF GO=0 

2193 004374 001402 BEQ LT11B :1F SO: BR 

2194 004376 000167 000072 JMP LT11E1 sELSE GO TO ERROR 1 
2195 004402 000240 LT11B: NOP | . 

2196 004404 012777 000015 174122 MOV #15,aMR sSELECT WAM 3 

2197 004412 005077 174100 CLR arc sASSURE FCS = 1 
2198 004416 052777 001700 174116 BIS #1700, aTC sASSURE FMT OK 
2199 004424 012777 000071 174056 MOV #71,aC1 ;SET READ+GO 

2200 004432 017702 174052 MOV aci,R2 sREAD (1 

2201 004436 032702 000001 BIT #1,R2 ;SEE IF GO = 

2202 004442 001002 BNE LT11C :1F SO: BR 

2203 004444 000167 900060 JMP LT11E2 sELSE GO TO ERROR 2 
2204 004450 000240 LT11C: NOP 

2205 004452 004767 017530 JSR PC, INIT1 :GO INIT 

2206 004456 017702 174026 MOV aci,R2 sREAD C1 

2207 004462 032702 000001 BIT #1,R2 :SEE IF GO=0 

2208 004466 001452 BEQ LT11X :1F SO:BR 

2209 004470 000167 000070 JMP LT11E3 sELSE GO TO ERROR 3 
2210 004474 000240 LT11E1: NOP . 

2211 0046476 012767 026413 174166 MOV #MSG21,ERADD  ;SET ERROR CODE 
2212 004504 012702 000001 MOV #1,R2 :SET REVD 

2213 004510 005001 CLR Ri :SET EXPT 

2214 004512 012767 004352 174172 MOV #LTI1IT,SCOLP :SET SCOPE ADDRESS 
2215 004520 004767 017122 JSR PC,LTGER1 :GO PRINT ERROR 
2216 004524 000167 177652 JMP LT11B sELSE CONTINUE 
2217 004530 000240 LT11E2: NOP : 

2218 004532 012767 026451 174132 - MOV #MSG22,ERADD §;SET ERROR CODE 
2219 004540 005002 CLR R2 :SET RCVD 

2220 004542 012701 000001 MOV #1,R1 sSET EXPT 

2221 004546 012767 004402 174136 MOV #LT11B,SCOLP § ;SET SCOPE ADDRESS 
2222 004554 004767 017066 JSR PC,LTGER1 :GO PRINT ERROR 
2223 004560 000167 177664 JMP LT11C sELSE CONTINUE 

2224 004564 000240 LT11E3: NOP 

2225 004566 012767 026472 174076 MOV #MSG23,ERADD  ;SET ERROR CODE 
2226 004574 005001 CLR R1 ;SET EXPT 

2227 004576 012702 000001 MOV #1,R2 :SET RCVD 

2228 004602 012767 004450 174102 MOV #LTI1C,SCOLP § ;SET SCOPE ADDRESS 
2229 004610 004767 017032 JSR PC,LTGER1 :GO PRINT ERROR 
2230 004614 000240 : LT11xX: NOP 

2231 004616 004767 017300 JSR PC,ITER :GO SEE IF ITERATIONS 


2232 004622 000167 175204 JMP TSCD2 ;RETURN TO SCHED 
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2233 
ste :LOGIC TEST 12: DRIVE READY Bl Teeeeeceeee 
2236 004626 000240 L712: NOP 
2237 004630 012767 030404 173764 LT12IT: MOV #MSLT12.EMADDR = TEST HEADER 
22358 004636 004767 017344 JSR PC, INIT1 NIT 
2239 004642 032777 000200 173652 BIT #200,aDS SEE IF DRY=1 
2240 004650 001002 BNE LT128 s1F SO: BR 
2241 004652 000167 000066 JMP LT12€1 ELSE GO TO ERROR 1 
2242 004656 000240 LT12B: NOP 
2243 004660 012777 000015 173646 MOV #15, aMR :SET WAM3 
2244 004666 005077 173624 CLR aFc sASSURE FCS = 1 
2245 004672 052777 001700 173642 BIS #1700,aTC sASSURE FMT OK 
2246 004700 012777 000071 173602 MOV #71,aC1 3SET READ+G0 
2247 0904706 032777 000200 173606 BIT #200,aDS :SEE IF DRY=0 
2248 004714 001402 BEQ LT12C :1F SO: BR 
2249 004716 000167 000046 JMP LT12E2 sELSE GO TO ERROR 2 
2250 004722 000240 LT12C: NOP 
2251 004724 004767 017256 JSR PC, INIT1 :GO INIT 
2252 004730 032777 000200 173564 BIT #200, ads sSEE IF DRY=1 
2253 004736 001036 BNE LT12x s1F SO: BR 
2254 004740 000167 000050 JMP LT12E3 ELSE GO TO ERROR 3 
2255 004744 000240 LT12E1: NOP 
2256 004746 012767 026525 173716 MOV #ASG24 ,ERADD :SET ERROR CODE 
2257 004754 012767 004630 173730 MOV #LTI2IT,SCOLP ;SET SCOPE ADDRESS 
2258 004762 004767 016652 JSR PC, LTGER2 :GO0 TO ERROR 
2259 004766 000733 BR LT128 ; CONTINUE 
2260 004770 000240 LT12E2: NOP ; 
2261 004772 012767 026553 173672 MOV #ASG25,ERADD sSET ERROR CODE 
2262 005000 012767 004656 173704 MOV #L7T12B,SCOLP :SET LOOP ADDRESS 
2263 005006 004767 016626 : JSR PC,LTGER2 :GO PRINT ERROR 
2264 005012 000743 BR LT12C : CONTINUE 
2265 005014 012767 026602 173650 LT12E3: MOV #ASG25A,ERADD sSET ERROR CODE 
2266 005022 012767 004722 173662 MOV #LT12C,SCOLP :SET ERROR LOOP 
2267 005030 004767 016604 JSR PC,LTGER2 :GET PRINT ERROR 
2268 005034 000240 LT12K: NOP 
2269 005036 004767 017060 JSR PC,ITER :GO TO ITERATION SUBROUTINE 


2270 005042 000167 174764 JMP TSCD2 sRETURN TO SCHED 
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LT13IT: 


LT13A: 
LT13€1: 


LT13X: 


sLOGIC TEST 13: INTERRUPT TESTeeeeanenee 


RO 
#MASLT13 
PC, INIT 
#LT13X, 
aci 
aPSw 
#100,aC 
RO 
LT13A 


#340,aP 
#MSG26, 
#LTI3IT 
PC,LT 


PC, ITER 
TSCD2 


ee 
RTRN 


1 
SW 


ERADD 
-SCOLP 


GER2 


:SET TEST HEADER 

:GO INIT,SELECT DRIVE, SELECT ABOVE 
;SET RETURN ADDRESS 

sCLEAR CS1 

:SET PRIORITY 

:BIT SET IE 


; AWAIT INTERRUPT 


;RESET PRIORITY 
;SET ERROR CODE 
> SET LOOP ADDRESS 
>GO PRINT ERROR 


:GO TO ITERATION SUBROUTINE 
;RETURN TO SCHED 


SEQ 0057 
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22935 
2294 zTHE NEXT 4 TESTS ARE MANUAL INTERVENTION STATUS TESTS. 
2295 :THE OPERATOR WILL BE REQUIRED TO MANIPULATE THE TU4S 
so :CONTROL PANEL IN ACCORDANCE WITH TTY INSTRUCTIONS. 
$599 :LOGIC TEST 14: STATUS AT BOT ON LINE, LOADED, NO WRITE RINGttteeenece 
2300 005160 000240 L114: NOP 
2301 005162 032777 001000 173400 BIT #1000, aSwWR :SEE IF INHIB MAN TST 
2302 005170 001005 BNE LT14A : IF NOT: BR 
2303 005172 005767 173542 TST STFLG : SEE IF SINGLE TEST 
2304 005176 001437 BEQ LT14XX > IF NOT: BR 
2305 005200 000167 016762 JMP INMT sELSE GO PRINT INHIB MSG 

. 2306 005204 012767 030522 173410 LT14A: MOV #MASLT14,EMADDR ;SET TEST HEADER 
2307 005212 012704 033443 MOV #MMSG1_R4 :SET INSTRUCTION ONE 
2308 005216 004767 017012 JSR PC, INST =GO DO INSTRUCTION 
2309 005222 004767 016760 LT141T: JSR PC, INIT1 :INIT, SELECT DRIVE + SLAVE 
2310 005226 012701 014602 MOV #14602,R1 :SET TEST WORD 
2311 005232 017702 173264 MOV aDdS,R2 :ASSURE MOL,WRL,DPR,DRY,BOT 
2312 005236 004767 000040 JSR PC,SETPES 
2313 005242 020102 CMP R1,R2 
2314 005244 001411 BEQ LT14x ;IF SO: BR 
2315 005246 000240 NOR 
2316 005250 012767 005222 173434 . MOV #LTIG4IT,SCOLP ;:SET LOOP ADDRESS 
2317 005256 012767 026656 173406 MOV #MSG27,ERADD SET ERROR CODE 
2318 005264 004767 016356 JSR PC,LTGER1 :GO PRINT ERROR 
2319 005270 000240 LT14X: NOP 
2320 005272 004767 016624 JSR PC, ITER :GO SEE IF ITERATION 
$38) 005276 000167 174530 LT14XX: JMP TSCD2 :RETURN TO SCHED 
2323 005302 032702 000040 SETPES: BIT #40,R2 
2324 005306 001402 BEQ 1$ 
2325 005310 052701 000040 BIS #40 ,R1 
2326 005314 000207 1$: RTS PC 


H 5 
TMO2/TUSS CONTROL LOGIC TEST MACY11 30(1046) 22-JUN-78 08:58 ° PAGE 59 


CZTUKA.P11 12~JUN-78 16:17 SEQ 0059 
2327 
Sass ZLOGIC TEST 15: STATUS AT BOT, OFFLINE, LOADED, NO WRITE RINGteeeeceeee 
2530 005316 000240 L715: NOP 
2331 005320 032777 001000 173242 BIT #1000,aSWR sSEE IF INHIB MAN TST 
2332 005326 00 BNE LT15A :1F NOT: BR 
2333 005330 005767 173404 TST STFLG =SEE IF SINGLE TEST 
2334 005334 001437 BEQ LT15XX :I1F NOT: BR 
2335 005336 000167 016624 JMP INMT :ELSE GO PRINT INHIB MSG 
23536 005342 012767 030570 173252 LT15A: MOV #ASLT15.EMADDR ;:SET TEST HEADER 
2337 005350 012704 033541 MOV #MMSG2,R4 
2338 005354 004767 016654 JSR =¥ nt sPRINT INSTRUCTION 
2339 005360 004767 016632 LT151T: JSR NIT2 :GO INIT, SELECT DRIVE, SLAV 
23540 005364 012701 100700 MOV 7100700. R1 ;SET TEST WORD 
2341 005370 017702 173126 MOV ads ,R2 :READ STATUS 
2342 005374 004767 177702 JSR PC, SETPES 
2343 005400 020102 CMP R1,R2 sSEE OF EXPT=RCVD 
2344 005402 001411 BEQ LT15X 
2345 005404 000240 NOP 
2346 005406 012767 005360 173276 MOV #LTISIT.SCOLP ;SET LOOP ADDRESS 
2347 005414 012767 026656 173250 MOV #MSG27,ERADD :SET ERROR CODE 


2348 005422 004767 016220 JSR PC,LTGER1 ;GO PRINT ERROR 

2349 005426 000240 LT15X: NOP 

2550 005430 004767 016466 JSR PC, ITER ;GO SEE It ITERATIONS 
2551 005434 000167 174372 LT15XX: JMP TSCD2 sRETURN TO SCHED 
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sLOGIC TEST 16: STATUS AT EOT, OFFLINE LOADED, NO WRITE RINGteeeserene 


#1000 ,aSwR 
LT16A 


#MMSG3,R4 


#116701,R1 
aDS Re 
PC, SETPES 
R1,R2 
LT16x 


#LT161T,SCOLP 
#MSG27,ERADD 
PC,LTGER1 


PC, ITER 
TSCD2 


;SEE IF INHIB MAN TST 
; IF NOT: BR 

:SEE IF SINGLE TEST 
IF NOT: BR 


ELSE GO PRINT INHIB MSG 
;SET TEST HEADER 


:GO PRINT INSTRUCTION 
>SELECT DRIVE,SLAVE 
;SET TEST WORD 

READ STATUS 


;SEE IF EXPT=RCVD 
;IF SO: BR 
7SET LOOP ADDRESS 


:SET ERROR CODE 
:GO PRINT ERROR 


:GO SEE IF ITERATION 
;RETURN TO SCHED 


SEQ 0060 
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2378 

2379 ;LOGIC TEST 17: STATUS AT ON LINE, LOADED#teeenenes 

2381 005562 000240 LT17: NOP 

2382 005564 032777 001000 172776 BIT #1000, aswR ;SEE IF INHIB MAN TST 

2383 005572 001005 BNE LTI7A :1F NOT: BR 

2384 005574 005767 173140 TST STFLG :SEE IF SINGLE TEST 

2385 005600 001444 BEQ LT17XX ;1F NOT: BR 

2386 005602 000167 016360 JMP INMT ELSE GO PRINT INHIB MSG 

2387 005606 012767 030704 173006 LT17A: MOV . #MSLT17,EMADDR :SET TEST HEADER 

2388 005614 012704 033620 MOV #MMSG4 RA 

2389 005620 004767 016410 JSR ss PC, INST ;GO PRINT INSTRUCTION 

2390 005624 004767 016366 LTI7IT: JSR PC, INIT2 ;SELECT DRIVE, SLAVE 

2391 005630 012701 112701 MOV #112701,R1 ;SET TEST WORD 

2392 005634 017702 172662 MOV aps ,R2 :READ STATUS 

2393 005640 004767 177436 JSR PC, SETPES 

2394 005644 032702 002000 BIT #2000,R2 

2395 005650 001002 BNE 1$ 

5396 005652 042701 002000 BIC #2000,R1 

2397 005656 020102 : 1$: CMP R1,R2 ;SEE IF EXPT=RCVD 

2398 005660 001411 : BEQ LT17Xx :1F SO: BR 

2399 005662 000240 NOP 

2400 005664 012767 005624 173020 MOV #LTI7IT.SCOLP ;SET LOOP ADDRESS 

2401 005672 012767 026656 172772 MOV #MSG27,ERADD | ;SET ERROR CODE 

2402 005700 004767 015742 JSR PC.LTGER1 :YES PRINT ERROR 

2403 005704 000240 =: LT17X: NOP , 

2404 005706 004767 016210 JSR PC, ITER :GO SEE IF ITERATIONS 

2405 005712 000167 174114 LT17XX: JMP TSCD2 :RETURN TO SCHED 
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PWS 05 € ge ce 


' 
i 


CZTUK 


005716 


006064 


a 


* 


ha ge CONTROL LOGIC 
A.P11 12-JUN- 


000240 


000167 


TEST 


78 16:17 


030752 
005746 


172526 


034103 
000001 
014450 


014422 


172626 
177674 


016042 
015066 
173742 


MACY11 30(1046) 


172674 
172756 


172726 
172532 
172516 


172662 
172700 


L720: 


LT20IT: 


LT20A: 


LT20B: 


LT20C: 


LT20Xx: 
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>THE FOLLOWING 11 TESTS WILL TEST ALL POSSIBLE ERROR BITS 

>BY FORCING THEIR CONDITIONS THROUGH VARIOUS ILLEGAL PROGP*MMING 
;SEQUENCES AWD USING THE MAINTENANCE WILL MODES AVAILABLt wiTH TMO2 
;FOR EACH ERROR CONDITION SET THE APPROPRIATE STATUS WILL BE 


sCHECKED. IE: ERR, ATA, 
ILLEGAL 


;LOGIC TEST 20: 


MOV #MSLT20,EMADDR 
MOV A  eamaaal 


#22,R 
MOV + ge tO al 


M 

MOV 1,R1 
MOVB @aTEMP1 act 
MOV R, 


BNE 208 

MOV #TMS17,ERADD 
MOV #1,EXFL 
JSR PC ,LTGERO 
BR LT20C 

NOP 

CMP R1,R2 

BEQ LT20C 

JSR PC,LTGERS 
DEC RO 

BEQ LT20Xx 

INC TEMP1 

JMP LT20A 
NOP 


JSR PC, ITER 
JSR PC,DRVCLR 
TSCD2 


SLA, SC ETC. 
FUNCTION CILF) seeeannnae 


;SET TEST HEADER 
:SET LOOP ADDRESS 
;SET NUMBER OF ILL CODES 
:POINT TO START IF TABLE 


:GO INIT, SELECT SLAVE + DRIVE 
;SET WC= -1 

:SET TEST WORD 

:SET ILL CODE 


READ ER 

:SEE IF EXPT=RCVD 
7 IF SO: BR 

;SET ERROR CODE 
:SET EXPT FLG 


:GO PRINT ERROR 


+ ie UNEXPECTED ERRORS 
F NOT: BR 


TELSE PRINT ERROR 
7 SEE - a. ALL ILL CODES 


: IF SO: 

s;BUMP ADDRESS 

; CONTINUE 

:GO SEE IF ITERATION 


sRETURN TO SCHED 


SEQ 0062 


TMO2/TUSS CONTROL LOGIC 
12-JUN-78 


CZTUKA.P11 


006234 


000167 


TEST 
16:17 


031031 
006106 


172354 


034117 
000001 
114276 


014250 
015706 
040000 


014026 
014716 
173572 


MACY11 30(1046) 


172522 
172604 


172422 
172406 
172354 


172510 
172526 


LT21: 


LT21I1T: 


LT21A: 


LT21B: 


LT21XA: 


. 9 
22-JUN-78 08:58 PAGE 63 


;LOGIC TEST 21: 


NOP 
MO 


#MSLT21,EMADDR 
eal 


LT21A 
#TMS19,ERADD 
#1, EXFL 

PC, ,LTGERO 
LT21B 


PC ,LTGERS 
PC, ITER 
#40000 .R3 
R3 


LT21XA 
PC,EORPA 
PC,DORVCLR 
TSCD2 


REGISTER MODIFICATION REFUSED(RAR) teexeneeee 


:SET TEST HEADER 

>SET SCOPE LOOP ADDRESS 

:GO INIT, SELECT SLAVE, DRIVE 
:SET FORMAT 


:SET WAMS 

7SET READ+G0 

SATTEMPT WRITE TO FC 
:SET TEST WORD 


;GET ER 
:SEE IF EXPT=RCVD 
IF SO: BR 

> SET ERROR CODE 
:SET EXPT FLG 


:GO PRINT ERROR 


;SEE IF UNEXPECTED ERRORS 
: IF NOT: BR 


ELSE GO PRINT ERROR 


;GO SEE IF ITERATION 


;DELAY FOR ALPHA 
>GO DO EOR CLEAR 
sRETURN TO SCHED 


SEQ 0063 


TMO2/TU45 CONTROL LOGIC TEST 
CZTUKA.P11 


62 
006366 


000167 


12-JUN-78 16:17 


172206 


034125 
000001 
014130 


014102 
015540 
014564 
173440 
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172352 
172434 


172230 
172220 


172206 


172342 
172360 


LT22: 


LT22IT: 


LT22A: 


LT22xX: 


;LOGIC TEST 22: CONTROL 


#MSLT22 ,EMADDR 
#LT221T,SCOLP 
PC, INIT1 
#20,aCS 
#-1,aFC 


— #10,R1 


#20,aCS 
@ER,R2 
R1,R2 


LT22A 
#TAS20,ERADD 
#1,EXFL 

PC, LTGERO 
LT22x 


PC ,LTGERS 
PC, ITER 
PC,DRVCLR 
TSCD2 


64 


BUS PARITY (CPAR) seeexetaeee 


;SET TEST HEADER 

:SET SCOPE LOOP ADDRESS 
sINIT, SELECT SLAVE+DRIVE 
sENABLE EVEN PARITY ON MB 
sWRITE TO FC 


' 3SET TEST WORD 


sRESET PARITY TO ODD 
sGET ER 

sSEE IF EXPT=RCVD 
;IF SO: BR 

s;SET ERROR CODE 


sSET EXPT FLG 
:GO PRINT ERROR 


sSEE IF UNEXPECTED ERRORS 
IF NOT: BR 


“ELSE GO PRINT ERROR 
“GO SEE IF ITERATION 


sRETURN TO SCHED 


SEQ 0064 


TMO2/TU45 CONTROL LOGIC 
12-JUN-78 


CZTUKA.P11 


006522 


000167 


TEST 
16:17 


031122 
410 


172056 


034134 
000001 
014000 


013754 
015410 


173304 
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;LOGIC TEST 23: FORMAT ERROR( FMT) eeeacenee 
LT23: - NOP 3 


172220 MOV #MSLT23,EMADDR ;SET TEST HEADER 
172302 MOV #LT231T,SCOLP ;SET SCOPE ADDRESS 
LT2351T: JSR PC,INIT1 :GO INIT SELECT DRIVE+SLAVE 
172120 BIC #360,aTC ;SET ILLEGAL FORMAT 
MOV #20,R1 ;SET TEST WORD 
172100 MOV #15,aMR SET WAM 3 
#71,aC1 


172046 MOV +H READ+G0 


READ ER 
;SEE IF EXPT=RCVD 
IF SO: BR 


BNE 23A : : 
172212 MOV #TMS21,ERADD :SET ERROR CODE 
172230 MOV #1,EXFL sSET EXPT FLG 
JSR PC,LTGERO :GO PRINT ERROR 
BR L%23Xx 
LT23A: CMP R1,R2 sSEE IF UNEXPECTED ERRORS 
' BEQ LT23x sIF NOT: BR 
JSR PC,.LTGERS sELSE GO PRINT ERROR 
LT23X: NOP 


JSR PC. ITER :GO SEE IF ITERATION 
JSR PC,EORPA 
JSR PC DRVCLR 


JMP TSCD2 ;RETURN TO SCHED 


SEQ 0065 


TMO2/TUSS5 CONTROL LOGIC 


CZTUKA.P11 


AOAOSOOUVIMIUVIUUNN 


12-JUN-78 1 


012767 
0.767 


0 
000004 


000004 
000013 


000002 
171636 


171626 


000040 
177400 
000377 
172000 


171754 
000050 


171522 
020000 


172760 


MACY11 30(1046) 


171652 


171602 


1720 
1736 


_— 
~~ 


171474 


171540 


LT24: 


LT24IT: 


LT24A: 


LT24B: 


LT24B0: 


LT24C: 


LT24D: 


LT24X: 
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LOGIC TEST 24: DATA BUS PARITY ERROR(DPAR) teeetareee 
:SET TEST HEADER 


#MSLT24 ,EMADDR 
#LT241T,SCOLP 
ART 


PC, INIT1 
#300,aTC 
#WDATA,@BA 
#-20,aFC 


#177400,R1 
#377 ,R4 
R4,R1 

T24FL 

#TMS22 ,ERADD 


W1,EXFL 4 
PC,LTGERO 
T24FL 

LT24Xx 
#50,R1 

@ER ,R2 

5 daa 
LT24Xx 

PC ,LTGERS 
#20,aCs 

PC ,EORPA 

PC ,DRVCLR 


PC, ITE 
#20, 1TAMT 
TSCD2 


:SET SCOPE ADDRESS 


:GO INIT, SELECT DRIVE+SLAVE 


+ NORMAL FORMAT 


E+G0 
sFORCE EVEN PARITY 
>SET TEST WORD 


; DELAY 


;CLOCK MR 4 TIMES 


sSEE If DONE 1 BYTE 
;IF NOT: BR 

SELSE GET BYTE 1 
:SEE IF BYTE 2 

;IF NOT: BR 

GET BYTE 2 


DELAY 
>SEE IF DPAR IS SET 
:1F SO: BR 

;GET LOW BYTE 

:GET HIGH BYTE 


:GO PRINT ERROR 
; CLEAR FLAG 


;GET ERROR REGISTER 
MASK OPI 


;SEE IF UNEXPECTED ERRORS 
7: IF NOT: BR 

sELSE GO PRINT ERROR 
RESET EVEN PARITY 

:GO DO EOR CLEAR 

:GO SEE IF DRIVE CLEAR OK 
;GO SEE IF ITERATION 


;RETURN TO SCHED 


SEQ 0066 


ct & 
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CZTUKA.P11 12-JUN-78 16:17 , SEQ 0067 
2580 
aaa :LOGIC TEST 25: NON-EXECUTABLE FUNCTION(NEF )*steaeeeee 
2583 007052 012767 031224 171542 LT25: MOV #ASLT2S,EMADDR ;SET TEST HEADER 
2584 007060 004767 015122 LT251T: JSR PC, INIT! sINIT, SELECT DRIVE+SLAVE | 
2585 007064 052777 000300 171450 BIS #300,aTC SET NORMAL FORMAT 
2586 007072 012777 177777 #=171416 MOV #-1,aFC ¢SET ITLLEGAL FC 
2587 007100 012777 000013 171426 MOV #13,aMR T WAM 2 
2588 007106 012777 000061 171374 MOV #61,aC1 “LOAD WRITE+GO 
2589 007114 012701 004000 MOV #4000 ,R1 :SET TEST WORD 
2590 007120 017702 171400 MOV @ER,R2 : ET ER 
2591 007124 030102 BIT R1,R2 sSEE IF EXPT=RCVD 
2592 007126 001014 BNE LT25A : IF SO: BR 
2593 007130 012767 007060 171554 MOV #LT251T,SCOLP ;SET LOOP ADDRESS 
2594 007136 012767 034230 171526 MOV #TMS31,ERADD ;SET ERROR CODE 
2595 007144 012767 000001 171544 MOV #1,EXFL sSET EXPT FLAG 
2596 007152 004767 013314 JSR PC,LTGERO 3;GO PRINT ERROR 
2597 007156 000404 SR LT25x 
2598 007160 020102 LT25A: CMP R1,R2 :SEE IF UNEXPECTED ERRORS 
2599 007162 001402 BEQ LT25x :I1F NOT: BR 
2600 007164 004767 013270 JSR PC,LTGER3 “ELSE GO PRINT ERROR 
2601 007170 004767 014726 LT25X: JSR PC.,ITER :GO SEE IF ITERATION 
2602 007174 004767 013752 JSR PC,DRVCLR 


2603 007200 000167 172626 JMP TSCD2 sRETURN TO SCHED 


TMO2/TU4S CONTROL LOGIC TEST 
CZTUKA.P11 


007414 


012767 
004767 


000167 


12-JUN-78 16:17 


031260 
014770 


000300 


001000 


000025 
171226 
000004 


001000 


171164 


013104 
171130 


013054 
014512 
013536 
172412 


MACY11 30(1046) 


171410 


171232 


171202 


LT26: 
LT26IT: 


LT26W: 


LT26A: 


LT26B: 


LT26C: 


LT26X: 


dD 6 
22-JUN-78 08:58 PAGE 68 


sLOGIC TEST 26: FRAME COUNT ERROR(FCE) eeeeeeeane 


#MSLT26,EMADDR 


PC, INITI 


#1000,R1 
RO 


RO 
LT26A 
#25 ,aMR 
@AR 

#4 ,R3 
0 


R 
#1000,@ER 
LT26C 

RO 

LT26B 

R3 


LT268 
@ER,R2 
#LT26I1T,SCOLP 
#TMS28 ,ERADD 


#1, EXFL 
PC,LTGERO 
LT26x 


L 
PC ,LTGERS 
PC, ITER 


PC .DRVCLR 
TSCD2 


:SET TEST HEADER 


s INIT, SELECT DRIVE+SLAVE 


sAWAIT OPI RESET 
;SET NORMAL FORMAT 
:SET WC=-10 

:SET FC=-20 

sSET WAM 3 

:LOAD WRITE+GO 
:SET TEST WORD 


DELAY 
=LOAD MM EOR CLEAR 
“RESET MR 
sSEE IF FCE SET 
;1F SO: BR 


DELAY 


;GET ER 
;SET SCOPE ADDRESS 


sSET EXPT FLG 
:GO PRINT ERROR 


:GET ERROR REGISTER 

sSEE IF UNEXPECTED ERRORS 
:IF NOT: BR 

sELSE GO PRINT ERROR 

:GO SEE IF ITERATION 


sRETURN TO SCHED 


SEQ 0068 


TMO2/TU45 CONTROL LOGIC 


CZTUKA.P11 


007532 


12-JUN- 


022767 


000167 


TEST 


78 16:17 


172400 
007454 


014526 
000002 


000001 
034031 
012766 


014374 
013420 
172274 


MACY11 30(1046) 


171062 


171254 
171156 


171034 


171216 
171164 


;LOGIC TEST 27: 


LT27: CMP 


LT271T: MOV 
LT27A: JSR 


J 
LT27B: as 


B 
LT27X: JSR 

JSR 
LT27XX: JMP 
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#172400,C1 
LT27XX 
#LT27A,SCOLP 
#MSLT27,EMADDR 


#20,R0 
#172434,R1 

#71 ,EXFL 
#TMS10,ERADD 


PC,LTGER 
RO 


PC, DRVCLR 
TSCD2 


ILLEGAL 


69 


REGISTERCILR) seeaentane 


:SEE IF ADDRESSES OPEN 
:;IF NOT: BR 


SET SCOPE ADDRESS 
:SET TEST HEADER 


;SET NUMBER OF ILR TESTS 
SET FIRST ILR ADDRESS 
:GO INIT, SELECT DRIVE+SLAVE 


sATTEMPT ILR READ 

;SEE IF ILR=1 

IF SO: BR 

>SET EXPT-NOT RCVD FLAG 
:SET ERROR CODE 

:GO PRINT ERROR 

;SEE IF DONE ALL 

IF SO: BR 

:BUMP ADDRESS 

> CONTINUE TESTS 


:GO SEE IF ITERATIONS 
sRETURN TO SCHED 


SEQ 0069 


TMO2/TUSS5 CONTROL LOGIC 
12-JUN- 


CZTUKA.P11 


012767 


TEST 


78 16:17 


010000 
©00001 


040000 
170634 


170702 


014132 


000015 
000015 


010000 


000001 
012464 


010000 
170504 
020000 


012424 


171756 


MACY11 30(1046) 


171126 
171050 
171132 
170750 
170730 


170672 
170700 


171062 


170670 


170644 
170612 


170564 
170556 


170532 
170714 


L130: 


LT30IT: 


LT30A: 


LT30B: 


LT30C: 


LT30D: 


LT30E: 


LT30X: 
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sLOGIC TEST 30: DRIVE TIMING ERRORetteneeeee 


MOV 
MO 


#TMS32,ERADD 
#MSLT30,EMADDR 
#LT30IT.SCOLP 


#10000.R1 
#17,aMR 
arc 
#61,aCl 
#10000 ,a@ER 
LT3OA 
#1,EXFL 
PC.LTGERO 
PC, INIT1 


#300.aTC 
a" 


#40000, oR4 
LT30C 
RO 


LT308 
EMADDR, R4 
PC, TTOUT 
#MSG50,R4 
PC, TTOUT 


LT350D 

#10000 ,aER 

LTS0E 

#1,EXFL 

PC ,LTGERO 
30 


LT50X 
At aa »R1 
#20000 ,R2 
R1,R2 

LT 30x 
PC LTGERS 
PC, ITER 
PC,EORPA 


PC ,DRVCLR 
TSCD2 


>SET ERROR CODE 
sSET TEST HEADER 
;SET SCOPE ADDRESS 
sINIT, SELECT DRIVE + SLAVE 
>SET NORMAL FORMAT 
:SET TEST WORD 
:CRIPPLE OCCUPIED 
SET FCS 


:LOAD WRITE+GO 
sSEE IF DTE SET 
;IF SO: BR 

sSET EXPT FLG 
:GO PRINT ERROR 
3GO INIT SELECT DRIVE,SLAVE 
s;SET FORMAT 
:SET TEST WORD 
:SET FCS 

sSET WRAP 3 
sLOAD WRITE+G0 


;SEE IF ALPHA 
> AWAIT ALPHA 


;PRINT HEADER 
:PRINT ALPHA ERROR 


:CLOCK MR 
>CLOCK MR 


>DELA 

: SEE IF DTE SET 
IF SO: BR 

;SET EXPT FLG 
:GO PRINT ERROR 


;SET TEST WORD 

:GET ERROR REGISTER 

MASK OPI 

:SEE IF UNEXPECTED ERRORS 
‘NOT: BR 


sit : 

:ELSE GO PRINT ERROR 
:GO SEE IF ITERATION 
:GO CLEAR GO BIT 


sRETURN TO SCHED 


SEQ 0070 
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CZTUKA.P11 12-JUN-78 16:17 SEQ 0071 
2721 
arse sLOGIC TEST 31: OPERATION INCOMPLETE (OP] )texeeceene 
2724 010054 012767 031406 170540 LT31: MOV #MSLT31,CMADDR ;SET TEST HEADER 
2725 010062 012767 010070 170622 MOV #LT3111,.SCOLP ;SET SCOPE ADDRESS 
2726 010070 012767 000005 170510 LIT31IT: MOV #5, 1TAMT :SET REDUCED ITER COUNT 
2727 010076 004767 014104 JSR PC, INIT1 INIT, SELECT DRIVE+SLAVE 
2728 010102 005000 CLR RO 
2729 010104 005300 LT3iW: DEC RO 
2730 010106 001376 BNE LT31W sAWAIT OPI RESET 
2731 010110 052777 000300 170424 BIS #300,aTC ;SET FORMAT 
2732 010116 012777 000013 170410 MOV #13,aMR ;SET WAM 2 
2733 010124 005077 170366 CLR arc SET FCS 
2734 010130 012777 000061 170352 MOV #61,aC1 ;LOAD WRITE+GO 
2735 010136 012701 020000 MOV #20000 ,R1 ;SET TEST WORD 
2736 010142 012703 000004 MOV #4 ,R3 
2737 010146 005000 CLR RO 
2738 010150 032777 020000 170346 LT31A: BIT #20000.,aER ;SEE IE OPI SET 
2739 010156 001015 BNE LT31B ;1F SO: BR | 
2740 010160 005300 DEC RO 
2741 010162 001372 BNE LT31A ; DELAY 
2742 010164 005303 DEC R3 
2745 010166 001370 BNE LTS1A 
2744 010170 012767 034252 170474 MOV #TASS3A,ERADD ;SET ERROR CODE 
2745 010176 012767 000001 170512 MOV #1,EXFL sSET EXPT FLG 
2746 010204 004767 012262 JSR PC,LTGERO :GO PRINT ERROR 
2747 010210 000464 BR LT31X 
2748 010212 017702 170306 LT31B: MOV @ER ,R2 GET ERROR REGISTER 
2749 010216 020102 CMP R1,R2 ;SEE IF UNEXPECTED ERRORS 
2750 010220 001403 BEQ LT31C ; IF NOT: BR 
2751 010222 004767 012232 JSR PC ,.LTGERS sELSE PRINT ERROR 
2752 010226 000455 BR LT31XxX 
2755 0102350 004767 013752 LT31C: JSR PC, INIT1 ;GO INIT 
2754 010234 005000 CLR RO 
2755 010236 005300 LTSiwi: DEC RO 
2756 010240 001376 BNE LT31W1 sAWAIT OPI RESET 
2757 010242 052777 000300 170272 BIS #300,aTC ;SET FORMAT 
2758 010250 012777 000015 170256 MOV #15 QAR ;SET WRAP 3 
2759 010256 012777 000071 170224 MOV #71,aC1 ;LOAD READ+G0 
2760 010264 012701 020000 MOV #20000,R1 SET TEST WORD 
2761 010270 012703 000100 MOV #100,R3 
2762 010274 005000 CLR RO 
2763 010276 032777 020000 170220 LT31D: BIT #20000, aER ;SEE IF OPI SET 
2764 010304 001020 BNE LTS1E ;I1F SO: BR 
2765 010306 005300 DEC RO 
2766 010310 001372 BNE LT31D : DELAY 
2767 010312 005303 DEC R3 
2768 010314 001370 BNE LT31D 
2769 010316 012767 010230 170366 MOV #L1T31C,SCOLP ;SET SCOPE ADDRESS 
2770 010324 012767 034266 170340 MOV #TMSS3B,ERADD ;SET ERROR CODE 
2771 010332 012767 000001 170356 MOV #1,EXFL sSET EXPT FLG 
2772 010340 004767 012126 JSR PC,LTGERO ;GO PRINT ERROR 
2773 010344 000406 BR LT31x 
2774 010346 017702 170152 LTS1E: MOV @ER,R2 ;GET ERROR REGISTER 
2775 010352 020102 CMP R1,R2 ;SEE IF UNEXPECTED ERRORS 


2776 010354 001402 BEQ LT31X ;I1F NOT: BR 


TMO2/TU4S CONTROL LOGIC TEST 
12-JUN-78 16:17 


CZTUKA.P11 


010356 
010362 
366 


004767 
004767 
004767 
012767 
000167 


012076 
013534 


171426 
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170206 


LT31X: 


PC ,LTGERS 
PC, ITER 
PC ,DRVCLR 
#20, iTAMT 
TSCD2 


sELSE PRINT ERROR 
:GO SEE IF ITERATIONS 


sRETURN TO SCHED 


SEQ 0072 


TMO2/TUSS CONTROL LOGIC 
12-JUN-78 


CZTUKA.P11 


010532 


012767 
012767 


000167 


TEST 
16:17 


031442 
010420 
013562 
170234 


177770 


170040 


034301 
000001 
011762 


011736 


171274 


MACY11 30(1046) 


170210 
170272 


170034 


170174 
170212 


LT32: 


LT32IT: 


LT32A: 


LT32xX: 
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sLOGIC TEST 32: UNSAFECUNS) tteeeeeece 


#MSLT32,EMADDR 
#LT321T,SCOLP 
PC, INIT1 
SLVN,RO 


RO 
#177770,R0 
#300,R0 


RO,aTC 
#71,aC1 
#40000 ,R1 
@ER,R2 
R1,R2 


LT32A 
#TMS34,ERADD 
#1,EXFL 
PC,LTGERO 
LT32Xx 


PC, ,.LTGERS 
PC, ITER 
PC,DRVCLR 
TSCD2 


>SET TEST HEADER 

:SET SCOPE ADDRESS 

sINIT, SELECT DRIVE +SLAVE 
:GET SLAVE NUMBER 

:SET NONEXISTANT SLAVE 
sMASK SLAVE NUMBER 

;SET FORMAT 

>SELECT ILLEGAL SLAVE 


:LOAD READ+GO 
+H TEST WORD 


;READ ER 

sSEE IF EXPT=RCVD 
:1F SO: BR 

;SET ERROR CODE 
:SET ERROR CODE 


:GO PRINT ERROR 


>SEE IF UNEXPECTED ERRORS 
F NOT: BR 


1 
sELSE PRINT ERROR 


:GO SEE IF ITERATIONS 


sRETURN TO SCHED 


SEQ 0075 


TMO2/TUS45 CONTROL LOGIC TEST 
CZTUKA.P11 


010634 


012767 


000167 


12-JUN-78 16:17 


031476 
0 


000031 
020000 


034061 


171172 | 


MACY11 


170056 
170140 


167714 


170054 
170072 


30(1046) 


LT353: 


LT33IT: 


LT33X: 
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>THE FOLLOWING 6 TESTS WILL LOOK AT VARIOUS BITS IN THE 
;DRIVE STATUS(DS) AND TAPE CONTROL(TC) 

sREGISTERS BY FORCING CERTAIN CONDITONS WHICH DO NOT 
sREQUIRE TAPE MOVEMENT. 


sLOGIC TEST 33: POSITIONING IN PROGRESS(PIP)*«xeaneeee 
MOV #MSLT33,EMADDR ;SET TEST HEADER 


MOV #LT331T,SCOLP ;SET SCOPE ADDRESS 

JSR PC, INIT1 : IN NIT, SELECT DRIVE+SLAVE 
MOV #13.,aMR $ WAM 2 

MOV #-1,aFC SET FCS 

MOV #31,aC1 3;LOAD SPACE FORWARD+GO 
BIT #20000, ads sSEE IF PIP=1 

BNE LT33x sIF SO: BR 

MOV #TMS14,ERADD :SET ERROR CODE 

MOV #1 JEXFL :SET ERROR CODE 


JSR PC.LTGERO 
JSR PC, ITER 
JMP TSCD2 


;GO PRINT ERROR 
:GO SEE IF ITERATIONS 
;RETURN TO SCHED 


SEQ 0074 





TMO2/TUSS CONTROL LOGIC 


CZTUKA.P11 


010776 


12-JUN- 


005767 


000167 


TEST 


78 16:17 


170016 


000040 
000002 
010666 
011542 
000400 
000040 


010742 


171030 
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170016 
167740 


167642 
167614 


170006 
167766 


167604 


167552 


167732 
167730 


;LOGIC TEST 34: PHASE ENCODED STATUS(PES) teeenees 
7SEE IF NRZ ONLY 
:IF SO: BR 


;SET ERROR CODE 
sSET TEST HEADER 


:GO INIT, SELECT DRIVE+SLAVE 
>SELECT NRZI 

;SEE IF PES=0 

7 IF SO: BR 

:SET RCVD-NOT EXPT 
>SET SCOPE ADDRESS 
:GO PRINT ERROR 

;BUMP DENSITY 

SEE IF ey ALL NRZI 


LTH: 86 TST 


LT341T: MOV 
LT34A1: JSR 


B 
LT54A: ad 


J 
LT34B: ADD 


LT34C: BIT 


LT34X: JSR 
LT34XX: JMP 


NRZOF 
LT34XXx 


#TMS6,ERADD 
—— 


#4, 

PC, INIT1 
#3400,aTC 
#40,aDS 


LT34B 


#2,EXFL 
#LT34A1,SCOLP 
PC,LTGERO 
#400,aTC 

RO 


LT54X 
#LT34C,SCOLP 
#1,EXFL 
PC,LTGERO 
PC, ITER 


TSCD2 


K 6 
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IF NOT: 


sSEE IF PES=1 

IF SO: BR 

:SET SCOPE ADDRESS 

;SET EXPT-NOT RCVD FLAG 
:GO PRINT ERROR 


:GO SEE IF ITERATION 
sRETURN TO SCHED 


SEQ 0075 | 


THU2/TUSS CONTROL LOGIC 
12-JUN- 


C7 TUKA.P11 

2854 

2855 

2856 

2857 011002 
2858 011010 
2859 011016 
2860 011022 
2861 10306 
2862 011032 
2863 1040 
2864 011046 
2865 011054 
2866 011062 
2867 011064 
2868 011072 
2869 011100 
2870 011104 
2871 011110 
2872 011114 
2873 011122 
2874 011124 
2875 011132 
2876 011140 
2877 011144 
2878 011150 


012767 


000167 


TEST 


78 16:17 


034324 
031566 
013164 
00002: 


000300 
5 


020000 
011104 


170656 


MACY11 30(1046) 


167662 
167604 


167472 
167502 


167460 


167624 
167612 


167420 


167560 
167556 


L135: 


LT35IT: 
1$: 


LT35A: 


LT35X: 


i 6 
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sLOGIC TEST 35: TAPE CONTROL WRITECTCW) eeeeeaneee 








#TMS37,ERADD 
yt eee 


#20,aDS 
1$ 


#2 ,EXFL 
#LT351T,SCOLP 
PC,LTGERO 

PC, INIT 


atc 

#20000 ,aTC 
LT35x 
#LT35A,SCOLP 
#1,EXFL 
PC,LTGERO 


PC, ITER 
TSCD2 


s INIT SELECT DRIVE, SLAVE 


; SEE IF _SDWN IS RESET 
F : BR 


:$ 
;LOAD READ+G0 


sSEE IF TCW=0 
F R 


:IF SO: B 

>SET RCV-NOT EXPT FLAG 
:SET SCOPE ADDRESS 

:GO ~— ERROR 


: INI 

SWRITE TO TC 

sSEE IF TCW=1 
O: BR 


IF $0: 

7SET SCOPE ADDRESS 

7SE EXPT-NOT RCVD FLAG 
:GO PRINT ERROR 


sRETURN TO SCHED 


eae, ae 


SEQ 0076 


TMO2/TUS5 CONTROL LOGIC 
P11 12-JUN- 


CZTUKA.P 
2879 


MR) 
OonNOw 
NLONS 


ot ot ot ot od ot ot od 


NAAM & 
Oofonen 


012767 
012767 
004767 


000167 


TEST 


78 16:17 


170536 


MACY11 30(1046) 


167440 
167502 


167340 
167500 
167476 
167300 


167440 
167436 


L136: 


LT36I1T: 


LT36A: 


LT36X: 


nm 6 
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sLOGIC TEST 36: FRAME COUNTER STATUS(FCS) eennenenee 


#MSLT356,EMADDR 

#TAS38 ,ERADD >SET ERROR CODE 

PC, INIT s INIT, SELECT DRIVE+SLAVE 
Co aC SEE IF FCS=0 


LT 71F SO: BR 
i he SCOLP ;SET SCOPE ADDRESS 
#2,EXFL :SET RCVD-NOT EXPT 


PC, LTGERG :GO PRINT ERROR 
PC, INIT1 : INIT 
arc sWRITE TO FC 
#40000 ,aTC + IF FCS=1 
LT36x O: BR 
#LT36A,SCOLP SET SCOPE ADDRESS 
#1,EXFL ;SET EXPT-NOT RCVD 
PC,LTGERO :GO PRINT ERROR 

C, ITER 

TSCD2 ;RETURN TO SCHED 


SEQ 0077 


N 6 
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CZTUKA.P11 12-JUN-78 16:17 SEQ 0078 
2899 
34+ sLOGIC TEST 37: ACCELERATIONCACCL) eeeeneeaee 
2902 011274 012767 031672 167320 L137: #£MOV #ASLT37.,EMADDR 
2903 011302 012767 034340 167362 MOV #TMS39,ERADD ;SET ERROR CODE 
2904 011310 004767 012672 LT371T: JSR PC, INIT1 sINIT, SELECT DRIVE+SLAVE 
2905 011314 052777 000300 167220 BIS #300,aTC :SET FORMAT 
2906 011322 005777 167214 TST atc :SEE IF ACCL=1 
2907 011326 100410 BMI LT37A ;1F SO: BR 
2908 011330 012767 000001 167360 MOV #1, EXFL 
2909 011336 012767 011310 167346 MOV #LT37IT,SCOLP $;SET SCOPE ADDRESS 
2910 011344 004767 011122 JSR PC,LTGERO :GO PRINT ERROR 
2911 011350 004767 012632 LT37A: JSR PC,INIT1 INIT 
2912 011354 052777 000300 167160 BIS #300,aTC :SET FORMAT 
2913 011362 012777 000015 167144 MOV #15,aMR :SET WAM 3 
2914 011370 012777 000071 167112 MOV #71,aC1 :LOAD READ+G0 
2915 011376 012700 100000 MOV #100000,R0 sSET ACCL DELAY 
2916 011402 005777 167134 LT37B: TST atc sSEE IF ACCL=0 
2917 011406 100012 BPL LT37x s1F SO: BR 
2918 011410 005300 DEC RO 
2919 011412 001373 BNE L137B8 ; DELAY . 
2920 011414 012767 011350 167270 MOV #LT37A,SCOLP sSET SCOPE ADDRESS 
2921 011422 012767 000002 167266 MOV #2,EXFL 
2922 011430 004767 011036 JSR PC ,.LTGERO :GO PRINT ERROR 
2925 011434 004767 012462 LT37X: JSR PC, ITER 
2924 011440 000167 170366 JMP TSCD2 :RETURN TO SCHED 


c 8 7 
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CZTUKA.P11 12-JUN-78 16:17 SEQ 0079 
2925 
oo :LOGIC TEST 40: PE TAPE MARK (TM) eeeneeenee 
2928 011444 005767 167212 1740: TST NRZOF 7SEE IF NRZ ONLY 
2929 011450 001046 BNE LT4Oxx : : BR 
2930 011452 012767 011466 167232 MOV #LT40IT.SCOLP ;SET SCOPE ADDRESS 
2931 011460 012767 031735 167134 MOV #ASLT40,EMADDR 
2932 011466 004767 012514 LT40IT: JSR PC,INIT1 s INIT, SELECT DRIVE+SLAVE 
2933 011472 005000 CLR RO 
2934 011474 005300 LT40W: DEC RO 
2935 011476 001376 BNE LT40W ;DELAY FOR OPI RESET 
2936 011500 052777 002300 167034 BIS #2300,aTC 
2937 011506 012777 000007 167020 MOV #7,aRR :SET WAM 0 
2938 011514 012777 000027 166766 MOV #27,aC1 sLOAD WRITE TAPE MARK+GO 
2939 011522 012700 100000 MOV #100000 ,R0 7SET DELAY 
2940 011526 032777 000004 166766 LT40A: BIT #4,a0S sSEE IF TM=1 
2941 011534 001012 BNE LT40x :1F SO: BR 
2942 011536 005300 DEC RO 
2943 011540 001372 BNE LT40A : DELAY 
2944 011542 012767 033757 167122 MOV #TMS3,ERADD 
2945 011550 012767 000001 167140 MOV #1,EXFL 
2946 011556 004767 010710 JSR PC, LTGERO :GO PRINT ERROR 
2947 011562 004767 012334 LT40xX: JSR PC, ITER 
2948 011566 000167 170240 LT4OXX: JMP TSCD2 sRETURN TO SCHED 


. £ 
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CZTUKA.P11 12-JUN-78 16:17 SEQ 0080 
2949 
A :LOGIC TEST 41: NRZ TAPE MARK (TM, VPE, ITM) eeeeceneee 
2952 011572 012767 011606 167112 LT41: MOV #LT41IT.SCOLP ;SET SCOPE ADDRESS 
2953 011600 012767 032002 167014 MOV #MSLT41,EMADDR 
2954 011606 004767 012374 LT411T: JSR PC, INIT1 sINIT, SELECT DRIVE, SLAVE 
2955 011612 004767 005436 JSR PC,BOTT :GO ASSURE NOT AT BOT 
2956 011616 052777 001700 166716 BIS #1700,aTC 7SET NRZ+NORMAL FORMAT 
2957 011624 012777 177760 166664 MOV #-20,aFC :SET FCS 
2958 011632 012777 000007 166674 MOV #7,aRR sSET WAM 0 
2959 011640 012777 000027 166642 MOV #27,aC1 ;LOAD WRITE TAPE MARK+GO 
2960 011646 005000 CLR RO 
2961 011650 032777 000004 166644 LT41A: BIT #4,aDS :SEE IF TM=1 
2962 011656 001012 BNE L1T41B :IF SO: BR 
2963 011660 0053 DEC RO 
2964 011662 001372 BNE LT41A ; DELAY 
2965 011664 012767 033757 167000 MOV #TMS3,ERADD SET ERROR CODE 
2966 011672 012767 000001 167016 MOV #1 ,EXFL 
2967 011700 004767 010566 JSR PC .LTGERO :GO PRINT ERROR 
2968 011704 032777 002000 166612 LT41B: BIT #2000 ,aER sSEE IF ITM=1 
2969 011712 001010 BNE LT41C :IF SO: BR 
2970 011714 012767 034222 166750 MOV #TMS30,ERADD :SET ERROR CODE 
2971 011722 012767 000001 166766 MOV #1 ,EXFL 
2972 011730 004767 010536 JSR PC,LTGERO :GO PRINT ERROR. 
2973 011734 032777 000100 166562 LT41C: BIT #100,aER sSEE IF VPE=1 
2974 011742 001011 BNE LT41D sIF SO: BR 
2975 011744 012767 034207 166720 MOV #TMS28,ERADD sSET ERROR CODE 
2976 011752 012767 000001 166736 MOV #1,EXFL 
2977 011760 004767 010506 JSR PC,LTGERO :GO PRINT ERROR 
2978 011764 000410 BR LT41x 
2979 011766 012701 002100 LT41D: MOV , #2100,R1 :SET EXPT ERROR BITS 
2980 011772 017702 166526 MOV @ER,R2 | :GET ERROR REGISTER 
2981 011776 020102 CMP R1,R2 :SEE IF UNEXPECTED ERRORS 
2982 012000 001402 BEQ LT41X : IF NOT: BR 
2983 012002 004767 010452 . JSR PC,.LTGER3 sELSE PRINT ERROR 
2984 012006 005002 LT41X: CLR R2 :SET TIMER 
2985 012010 032777 000200 166504 1$: BIT #200,aDS sSEE IF ORY SET 
2986 012016 001002 BNE 2$ sIF SO: BR 
2987 012020 005302 DEC R2 : AWAIT DRY 
2988 012022 001372 BNE 1$ :DELAY 
2989 012024 004767 012072 2$: JSR PC, ITER :GO SEE IF ITERATIONS 


2990 012030 004767 011116 JSR PC ,DRVCLR :GO DO DRIVE CLEAR 
2991 012034 000167 167772 ; JMP TSCD2 :RETURN TO SCHED 


TMO2/TU4S CONTROL LOGIC TEST 
CZTUKA.P11 12=-JUN-78 16:17 


dD 7 
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012156 


000167 


004270 
0 


012120 
004104 
166646 
000004 


011750 
166650 
167650 


;THE FOLLOWING 13 TESTS WILL CHECK DATA FORMATTING 
;AND TRANSFER THROUGH THE TMO2 WRAP AROUND MODES 


LOGIC TEST 42: WRAP 3, NRZ, NORMAL ODD **««« 


LT42: NOP 
166750 MOV #4270,WCS1 ;SET EXPT CS1 
166744 MOV #100 ,wCS2 ;SET EXPT CS2 
166740 MOV #10600 ,WDS 7SET EXPT DS 
166734 MOV #0,WER 7SET EXPT ER 
166522 MOV #ASLT42,EMADDR ;SET HEADER 
166670 MOV #1700,UDES sSET NRZ,NORMAL, ODD 
LT42A: CLR PATRN :POINT TO PATTERN 0 
166572 MOV #L142B,SCOLP ;SET SCOPE ADDRESS 
LT42B: wNOP 
= PC, WAMS 3G0 DO WRAP 3 
N 
INC PATRN ;BUMP PATTERN POINTER 
166640 BIT #4,PATRN sSEE IF DONE 
es LT42B 3; IF NOT: BR 
JSR PC, ITER :;GO SEE IF ITERATIONS 
CLR RORVF ;CLEAR REVENUE FLAG 
JMP TSCD2 :RETURN TO SCHEDULAR 


SEQ 0081 


TMO2/TU45 CONTROL LOGIC TEST 
CZTUKA.P11 


012162 


012246 


12-JUN- 


000167 
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166472 
167634 


002300 


177634 
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166614 LT43A: 
166610 


166534 


30(1046) 


L143: 
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;LOGIC TEST 43: WRAP 3, PE, NORMAL, ODDtexes 


NRZOF 

LT43A 

TSCD2 

#4270 ,WCS1 
#100 ,WCS2 
#10640,WDS 
#MSLT43,EMADDR 
#2300,UDES 


LT42A 


;SEE IF NRZ ONLY 
: IF NOT: BR 
;RETURN TO SCHED 
;SET EXPT CS1 


:SET EXPT CS2 

;SET EXPT DS 

:SET EXPT WER 

:SET HEADER 

;SET PE, NORMAL, ODD 


sEXECUTE TEST SEQUENCE 


SEQ 0082 


, F 
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CZTUKA.P11 12-JUN-73 16:17 SEQ 0083 
3032 
30%; sLOGIC TEST 44: WRAP 2, NRZ, NORMAL, ODDeex* 
3035 012252 000240 L144: #NOP 
3036 012254 012767 004260 166536 MOV #4260 ,WCS1 sSET EXPT CS1 
3037 012262 012767 000100 166532 MOV #100,WCS2 sSET EXPT CS2 
012270 012767 010600 166526 MOV #10600 ,WDS sSET EXPT DS 
3039 012276 012767 000000 166522 MOV #0,WER sSET EXPT WER 
3040 012304 012767 032166 166310 MOV #ASLT44,EMADDR ;SET HEADER 
3041 012312 012767 001760 166456 MOV #1700,UDES :SET TO NRZ,NORMAL, ODD 
3042 012320 005067 166456 LT446A: (CLR PATRN :POINT TO PATTERN 0 
12324. 012767 012332 166360 MOV #L1T44B,SCOLP :SET SCOPE ADDRESS 
3044 012332 000240 L144B: NOP 
3045 012334 004767 003626 , JSR PC ,WAM2 :GO DO WRAP 2 
3046 012340 000240 NOP 
3047 012342 005267 166434 INC PATRN ;BUMP POINTER 
3048 012346 032767 000004 166426 BIT #4, PATRN :SEE IF DONE 
3049 012354 001766 BEQ LT44B :1F NOT: BR 
3050 012356 000240 NOP 
3051 012360 004767 011536 JSR PC, ITER :GO SEE IF ITERATIONS 


3052 0123564 000167 167442 JMP TSCD2 sRETURN TO SCHEDULAR 


TMO2/TU45 CONTROL LOGIC 
12-JUN-78 


CZTUKA.P11 


012370 


012454 


000167 


TEST 
16:17 


166264 
167426 


002300 


177640 


MACY11 


166406 LT45A: 
166402 


166160 
166326 


30(1046) 


L145: 


G 7? 
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sLOGIC TEST 45: WRAP 2, PE, NORMAL, ODD***e* 


NRZOF 
LT45A 
TSCD2 
#4260 .,WCS1 
#100 ,WCS2 
#10640,WDS 


#0,WER 
#MSLT45 ,EMADDR 
#2300 ,UDES 


LT44A 


° - * e 
- - ° 
e . 
- - 
° - . - 
= . 
se - 
. - a os 


:SEE IF NRZ ONLY 
T: BR 


; IF NO 
;RETURN TO SCHED 
sSET EXPT CS1 


:SET EXPT CS2 

:SET EXPT DS 

sSET EXPT WER 

:SET HEADER 

:SET PE, NORMAL, ODD 


>GO EXECUTE TEST SEQUENCES 


i = 


SEQ 6084 


.F 
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CZTUKA.P11 12-JUN-78 16:17 SEQ 0085 
3069 
<r9 sLOGIC TEST 46: WRAP 1, NRZ, NORMAL, ODDeeeee 
3072 012460 000249 L146: NOP 
3073 012462 912767 004260 166330 MOV #4260 ,WCS1 sSET EXPT CS1 
3074 012470 012767 000100 166324 MOV #100,wCS2 ;SET EXPT CS2 
3075 012476 012767 010600 166320 MOV #10600 ,WDS sSET EXPT DS 
3076 012504 012767 000000 166314 MOV #0,WER iSET EXPT WER 
3077 012512 012767 032303 166102 MOV #ASLT46,EMADDR ;:SET HEADER 
3078 012520 012767 001700 166250 MOV #1700,UDES sSET NRZ, NORMAL, ODD 
3079 012526 005067 166250 LT46A: CLR PATRN :POINT TO PATTERN ZERO 
3080 012532 012767 012540 166152 MOV #L146B,SCOLP :SET SCOPE ADDRESS 
3081 012540 000240 LT46B: NOP 
3082 012542 004767 003406 JSR PC, WAM1 :GO DO WRAP 1 
3083 012546 000240 NOP 
3084 012550 000240 NOP 
3085 012552 005267 166224 INC PATRN :BUMP POINTER 
3086 012556 032767 000004 166216 BIT #4, PATRN :SEE IF DONE 
3087 012564 001765 BEQ LT46B :1f NOT: BR 
3088 012566 000240 NOP 
3089 012570 004767 011326 JSR PC, ITER :GO SEE IF ITERATIONS 


3090 012574 000167 167232 JMP TSCD2 sRETURN TO SCHEDULAR 


TMO2/1U45 CONTROL LOGIC 
12-JUN-78 


CZTUKA.P11 


012666 
012670 


000240 
000167 


TEST 
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166054 
167216 


002300 


177632 


MACY11 


166112 
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- 
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;LOGIC TEST 47: WRAP 1, PE, NORMAL, ODDetees 


PC,PPGEN 
#4260 ,WCS1 
#100,WCS2 
#10640 ,W0S 
#0,WER 
#MSLT47,EMADDR 
#2300.,UDES 


LT46A 


“« 


;SEE IF 


IF NOT 
; RETURN 


NRZ ONLY 
R 


‘TO SCHED 
“GO GENERATE PRE/POSTAMBLE 
“SET EX 


PT CS1 


SET EXPT CS2 
SET EXPT DS 
;SET EXPT WER 
;SET HEADER 


;SET PE, NORMAL, ODD 


:GO EXECUTE TEST SEQUENCE 


SEQ 0086 


i sf 
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CZTUKA.P11 12=JUN-78 16:17 SEQ 0087 
3108 
aren :LOGIC TEST 50: WRAP 0, NRZ,NORMAL, ODD«*«2« 
3111 012674 000240 LT50: NOP 
3112 012676 012767 144260 166114 MOV #144260,WCS1 SET EXPT CS1 
3113 012704 012767 000100 166110 MOV #100,wCS2 SET EXPT CS2 
3114 012712 0612767 150600 166104 MOV #150600,WDS :SET EXPT DS 
3115 012720 012767 000200 166100 MOV #200, WER :SET EXPT ER 
3116 012726 012767 032420 165666 MOV #MSLTSO.EMADDR :SET HEADER 
3117 012734 012767 001700 166034 MOV #1700, UDES :SET NRZ, NORMAL, opp 
3118 012742 005067 166034 LTSOA: CLR PATRN :POINT TO PATTERN 0 
3119 012746 012767 012754 165736 MOV #LT50B,SCOLP :SET SCOPE ADDRESS 
3120 012754 900240 LT50B: NOP 
3121 012756 004767 003126 JSR PC,WAMO :GO DO WRAP 0 
3122 012762 000240 NOP 
3123 012764 005267 166012 INC PATRN :BUMP POINTER 
3124 012770 032767 000004 166004 BIT #4, PATRN :SEE IF DONE 
3125 012776 001766 BEQ LT50B : IF NOT: BR 
3126 013000 000240 NOP 
3127 013002 004767 § 011114 JSR PC, ITER :GO SEE IF ITERATIONS 


3128 013006 000167’ 167020 JMP TSCD2 “RETURN TO SCHEDULAR 


big B CONTROL LOGIC 
CZTUKA.P 8 


af by, 


013076 


12 


~JUN-7 


000240 


000167 


165642 


167004 
004260 
000100 
010640 
000000 
032467 
002300 


177640 


MACY11 
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165760 
165754 
165750 
165536 
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f 


kK 7 
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sLOGIC TEST 51: 


TSCD2 

#4260 ,WCS1 

#100 ,WCS2 
#10640,WDS 
#0,WER 
#MSLT51,EMADDR 
#2300,UDES 


LTSOA 


WRAP 0, PE, NORMAL, ODD*«««« 


sSEE IF NRZ ONLY 
: IF NOT: BR 

RETURN TI SCHED 
;SET EXPT CS1 

;SET EXPT CS2 

SET EXPT DS 

;SET EXPT ER 

;SET HEADER 

;SET PE, NORMAL, ODD 


;GO EXECUTE TEST SEQUENCE 


SEQ 0088 


eo. ee 


TMO2/TU4S CONTROL LOGIC 
12-JUN-7 
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013102 
0 


013220 


000167 


TEST 


8 16:17 


004260 


013162 
002776 
000002 
000002 


010702 
166606 


> | 
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165626 
165530 


165602 
165572 


LT5S2: 


LT52A: 


LT52x: 


LOGIC TEST 52: CORE DUMP WRITE, WAM2*«texes 


#4260,WCS1 
#100 ,WCS2 
#10600,WDS 

#0 ,WER 

#MSLT52 ,EMADDR 
#1720,UDES 
PATRN 
#LTS2A,SCOLP 
PC ,WAM2 


#2,PATRN 


;SET EXPT CS1 
SET EXPT CS2 
;SET EXPT DS 
sSET EXPT ER 
;SET HEADER 

;SET NRZ, CORE DUMP, ODD 


;POINT TO PATTERN 0 


“SET SCOPE ADDRESS 


:GO DO WAM 2 

;SEE IF DONE 

; IF SO: BR 
:SELECT PATTERN 2 
3; CONTINUE 


:GO SEE IF ITERATIONS 
>RETURN TO SCHEDULES 


SEQ 0089 


CZTU 


013224 


013354 


lags CONTROL LOGIC 
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000167 


TEST 
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004270 
000100 
06 


0 

001054 
002712 
000002 


000002 
001042 


010546 
166452 
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165476 


165452 


165442 
165442 
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LOGIC TEST 53: CORE DUMP READ, WAM 3**«0« 


#4270 ,WCS1 
#100,WCS2 
a 


#0 ,WE 
#MSLT53..EMADDR 
#1720, UDES 
PATRN 
#LT53A,SCOLP 
#WCDPO,RCDP 


PC ,WAM3 
#2,PATRN 
LT5 


:SET EXPT CS1 


;SET HEADER 

;SELECT NRE, CORE DUMP, ODD 
;SELECT PATTERN 0 

:SET SCOPE ADDRESS 

:POINT TO PATTERN 0 


;GO DO WAMS 
;SEE IF DONE 
; O: BR 


sSELECT PATTERN 2 
sPOINT TO PATTERN 2 
; CONTINUE 

;GO SEE IF ITERATION 
;RETURN TO SCHEDULE 


SEQ 0090 


nN 7 
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CZTUKA.P11 12-JUN-78 16:17 SEQ 0091 
3191 
a198 sLOGIC TEST 54: EVEN PARITY WRITE: WAM 1(M8903)eeee% 
3194 0135360 000240 L154: NOP 
3195 013362 012767 004260 165430 MOV #4260 ,,WCS1 :SET EXPT CS1 
3196 013370 012767 000100 165424 MOV #100,WCS2 SET EXPT CS2 
3197 013376 012767 010600 165420 MOV #10600 ,WDS SET EXPT DS 
3198 013404 012767 000000 165414 MOV #0,WER SET EXPT ER 
3199 013412 012767 032656 165202 MOV #MSLT54,EMADDR ;SET HEADER 
3200 013420 012767 001710 165350 MOV #1710, UDES 7SET NRZ, NORMAL, EVEN 
3201 3426 000240 NOP 
3202 013430 00024 NOP 


0 
3203 013432 000167 177070 JMP LT46A ;GO EXECUTE WAM 1 
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CZTUKA.P11 12=JUN-78 16:17 SEQ 0092 
3204 
oe :LOGIC TEST 55: EVEN PARITY READ: WAM 0(M8903 M8904) eeeee 
3207 013436 000240 L155: NOP 
3208 013440 012767 144260 165352 MOV #144260,WCS1 sSET EXPT CS1 
3209 013446 012767 000100 165346 MOV #100 ,WCS2 sSET EXPT CS2 
3210 013454 012767 150600 165342 MOV #150600 ,WDS 7SET EXPT DS 
3211 013462 012767 000200 165336 MOV #200 WER sSET EXPT ER 
3212 013470 012767 032737 165124 MOV #ASLTSS.EMADDR ;SET HEADER 


32135 013476 aainee 001710 165272 MOV #1710, UDES 7SET NRZ, NORMAL, EVEN 


01 000240 
3216 013510 000167 177226 JMP LTSOA :GO DO WAM 0 


TMO2/TUSS CONTROL LOGIC TEST 
CZTUKA.P11 


013514 


013574 


000167 


12=JUN-7@ 16:17 


000001 


176306 


Cc 8 
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LOGIC TEST 56: READ REVERSE: WAM 3(M8906)*ee«« 


LT56: NOP 

165274 V #4276,WCS1 sSET EXPT CS1 

165270 MOV #100 ,WCS2 ;SET EXPT CS2 

165264 MOV #10640 ,WDS SET EXPT DS 

165260 MOV #0,WER >SET EXPT ER 

165046 MOV #MSLT56,EMADDR ;SET HEADER 

165214 MOV #2300 ,UDES >SELECT PE,NORMAL ,ODD 

165216 a #1 ,RORVE ;SET READ REVERSE FLAG 
N 
NOP 
JMP LT42A :GO DO WAM 3, REVERSE 


SEQ 0093 


TMO2/TUS4S CONTROL 


CZTUKA.P11 


000240 


LOGIC TEST 
12-JUN-78 16:17 


002006 
001000 


033063 


000061 
000200 


000200 
164572 
177000 
000777 


006504 


000061 
000200 


164440 


034316 
000001 
006364 


MACY11 30(1046) 


164776 
165060 


164676 


164606 
164610 


164574 


164540 


164450 
164452 


164576 
164614 


LT57: 


LT57PS: 


LT57IT: 


LT57A: 


LT57B: 


L157B1: 


LT57B2: 


LTS7C: 


LT57D: 


D 6 
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>THE FOLLOWING SIX(6) TEST WILL REQUIRE TAPE MOVEMENT. 
sTEST WILL PERFORM A TAPE WRITE WHILE IN A PARITICULAR MAINTENANCE 
>MODE IN ORDER TO FORCE THE REMAINING ERROR CONDITIONS. 


sLOGIC TEST 57: CYCLIC REDUNDANCY ERROR(CRC) eeeeeeeene 


PC STATIC 
#10 0 


RO 
LT57PS 


#MSLT57,EMADDR 
ge aa 


R 
LTS7A 


#200 ,aER 
LT57B1 
acc,Re 
#177000 ,R2 
#777 ,R2 
LT57B2 


PC ,LTGERS 
#MSG55,R4 


@ER 

LT57E 
#TMS36,ERADD 
#1,EXFL 
PC,LTGERO 
LT5?7x 


:GO SEE IF STATIC ONLY 


3; PAUSE 


>SET SCOPE ADDRESS 
s INIT SELECT DRIVE+SLAVE 
:SET NRZ + NORMAL FORMAT 


:SET FC=20 

;SET BUS ADDRESS 
:SET MM CODE 
sLOAD WRITE+GO 


;SEE IF DRY=1 
SO: BR 


> DELAY 

;SEE IF LRC ERROR ONLY 

IF NOT: BR 

:GET CHECK CHAR 

MASK CRC 

;SEE IF SETUP CRC IS CORRECT 
IF SO: BR 

:ELSE PRINT ERROR SETUP 
sPRINT SETUP ERROR MSG 
sRETURN TO SCHED 


GO INIT 
7 SET oo 


sSET MM 

sLOAD WRITE+G0 
:SEE IF DRY 

sIF SO: BR 
sAWAIT DRY 

sSEE IF CRC=1 
sIF SO: BR 

sSET ERROR CODE 
:GO PRINT ERROR 


SEQ 0094 


| 


TMO2/TUSS CONTROL LOGIC TEST 
CZTUKA.P11 


014110 
0 


014142 


012701 


000167 


12-JUN-78 16:17 


100200 
164404 


006330 
007764 


007010 
165664 


MACY11 30(1046) 


LTS57E: 


LT57X: 


> = 
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#100200,R1 
@ER,R2 


dl 


R1,R2 
LT57Xx 
PC,.LTGERS 


PC, ITER 
PC ,DRVCLR 
TSCD2 


;SET EXPT ERROR BITS 

:GET ERROR REGISTER 

sSEE IF UNEXPECTED ERRORS 
: IF NOT: BR 

sELSE PRINT ERROR 

:D0 ITERATIONS 

sRETURN TO SCHED 


SEQ 0095 
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CZTUKA.P11 12-JUN-78 16:17 SEQ 0096 
3297 
$569 sLOGIC TEST 60: LONGITUALINAL REDUNDANCY(LRC) tteeeerens 
3300 014146 00024 L160: NOP 
3301 014150 004767 001440 JSR PC, STATIC :GO SEE IF STATIC ONLY 
3302 014154 012767 014170 164530 MOV #LT60IT.SCOLP ;SET SCOPE ADDRESS 
3303 014162 012767 933117 164432 MOV #ASLT60,EMADDR 
3304 014170 004767 010012 LT60IT: JSR PC, INIT1 : INIT, SELECT DRIVE+SLAVE 
3305 014174 052777 000300 164340 BIS #300,aTC >SET FORMAT#NRZ 
3306 014202 012777 000023 164324 MOV #235,aMR SET ‘aLal 
3307 014210 012777 177770 164274 MOV #-10,auc SET we 
3308 014216 012777 177760 164272 MOV #-20,aFC sSET FC 
3309 014224 012777 034350 164262 MOV #WDATA,@BA :SET BA 
3310 014232 012777 000061 164250 MOV #61,aC1 :LOAD WRITE+GO 
3311 014240 005000 CLR RO 
3312 014242 032777 000200 164252 LTS0C: BIT #200.aDS :SEE IF DRY 
3313 014250 001002 BNE LT60D :1F SO: BR 
3314 014252 005300 DEC RO 
3315 014254 001372 BHE LT60C :AWAIT DRY 
3316 014256 000240 LT60D: NOP 
3317 014260 032777 000200 164236 BIT #200,aER :SEE IF LRC=1 
3318 014266 001011 BNE LT60E : IF SO: BR 
3319 014270 012767 034173 164374 MOV #TMS26,ERADD :SET ERROR CODE 
3320 014276 012767 000001 164412 MOV #1,EXFL 
3321 014304 004767 006162 JSR PC,LTGERO :GO PRINT 
3322 014310 000425 BR LT60Xx 
3323 014312 017702 164216 LT60E: MOV @aAR ,R2 
3324 014316 042702 000177 BIC #177,R2 :MASK LRC 
3325 014322 012701 157600 MOV #157600,R1 sSET EXPT LRC 
3326 014326 020102 CMP R1,R2 :SEE IF EXPT = RCVD 
3327 014330 001405 BEQ LT60F : IF SO: BR 
3328 014332 012767 027474 164332 MOV #™SG53,ERADD =SET ERROR CODE 
3329 014340 004767 007302 JSR PC, LTGER1 :PRINT ERROR 
3330 014344 017702 164154 LT60F: MOV @ER,R2 :GET ERROR REGISTER 
3331 014350 012701 000200 MOV #200,R1 :SET EXPT ERROR BITS 
3332 014354 020102 CMP R1,R2 *SEE IF UNEXPECTED ERRORS 
3333 014356 001402 BEQ LT60Xx :1F NOT: BR 
3334 014360 004767 006074 © JSR PC,.LTGER3 :ELSE PRINT ERROR is 
3335 014364 000240 1T60X: NOP 
3336 014366 004767 007530 JSR PC, ITER 
3337 014372 004767 006554 JSR PC, .DRVCLR 
3338 014376 000167 165430 JMP TSCD2 sRETURN TO SCHED 


TMO2/TU45 CONTROL LOGIC TEST 
CZTUKA.P11 


014402 


ooooo°o°neo 
ee ee es 
rs rs 

S 


014662 


000167 
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164252 
001176 


000061 
164014 


000021 
000200 


163762 
034307 
000001 
005706 
000002 


163724 


007020 
163670 
100000 
005610 
007244 


006270 
165144 
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164176 
164260 


164076 


164014 


164016 
163774 


164120 
164136 


163732 


164050 


LT61: 


LT61IT: 


LT61A: 


LT61A1: 


LT61B: 


LT61C: 


LT61D: 
LT61E: 


LT61F: 


LT61X: 


JSR 
LT61XX: JMP 
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;LOGIC TEST 61: 


NRZOF 

LT61XX 

PC, STATIC 
#MSLT61,EMADDR 
ase 


@ER 


LT61D 
#TMS35.,ERADD 
#1,EXFL 
PC,,LTGERO 


#2,aCC 
LT61F 


acct ,R2 
#177000 ,R2 
#2,R1 
#"SG42 .ERADD 
PC,LTGERT 
LT61Xx 
@ER,R2 
— 


LT61X 
PC ,.LTGERS 


PC, ITER 
PC,DRVCLR 
TSCD2 


PE CORRECTABLE DATA (CORR) tseenntnne 


;SEE IF NRZ ONLY 
;IF SO: BR 
:GO SEE IF STATIC ONLY 


s INIT, SELCT DRIVE+SLAVE 
NORMAL 


0 
;SET BA=START OF WRITE BUFFER 
;LOAD WRITE+GO 


sSEE IF FC=0 
s1F SO: BR 


;DELAY FOR FC=0 
>SET MAINT CODE 


sSEE IF DRY IS SET 
: IF SO: BR 
sAWAIT DRY 

sSEE IF CORR=1 

sIF SO: BR 

:SET ERROR CODE 


:GO PRINT ERROR 


;SEE IF DEAD TRACK BIT 1 
IF SO: BR 
;SAVE RCVD- 


:SET ERROR CODE 
:GO PRINT ERROR 


;GET ERROR REGISTER 
;SET EXPT ERROR BITS 
;SEE IF UNEXPECTED ERRORS 
: IF NOT: BR 
ELSE PRINT ERROR 


;RETURN TO SCHED 


SEQ 0097 


— 


hi a LOGIC TEST 


01506 
015074 


oooooooc“eo 
aed ed ad ed ad ad ed od ed 
ed a ed ed ed od od 
WANN OO 
f£Oofoofofo 


005767 


000167 
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163770 
000714 


000061 
163532 


0000235 
000200 


000100 
034151 


000046 


027506 
006546 
163420 
100600 
000100 


005334 


164672 


MACY11 


163714 
163776 


163564 


163532 


163534 


163512 


163500 


163636 
163654 


163576 


30(1046) 


L162: 


LT62IT: 


LT62E: 


LT62E1: 


LT62A: 


“LT62B: 


LT62D: 


LT62F : 


LT62X: 


R 
LT62XX: JMP 
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sLOGIC TEST 62: PE INCORRECTABLE DATACINC) serteunnense 


NRZOF ;SEE IF NRZ ONLY 

LT62Xx IF SO: BR 

PC,STATIC :GO SEE IF STATIC ONLY 
#MSLT62,EMADOR 

#LT621T,SCOLP 

PC, INIT1 ; INIT SELECT DRIVE SLAVE 
#-220,awC :SET WC=220 

#-440,aFC ;SET FC=440 

#WDATA,@BA :SET BA=START OF WRITE BUFFER 
#2300, aTC ;SET TO PE,NORMAL 

= ,acl ;LOAD WRITE+GO 

aFC AWAIT FC=0 

LT62E1 

RO 

LT62E sAWAIT FC=C 

_ :SET MAINT CODE 
#200,aDS sSEE IF DRY IS SET 

5 gaa IF SO: BR 

LT62A ;AWAIT DRY 

#100,aER 


;SEE IF INC=1 
;IF SO:BR 


LT62D sIF SO: 
ti aa ;SET ERROR CODE 


PC,LTGERO ;GO PRINT ERROR 
acc.Re ;GET CHECK CHAR 
#177000,R2 sMASK CHECK CHAR 
#46,R1 sSET EXPT CK 
R1,R2 ;SEE IF EXPT = RCVD 
LT62F IF SO: BR 
#MSG54,ERADD 
ait ale sELSE GO PRINT ERROR 
#100600 .R2 :MASK NSG AND CORR AND PEF 
#100,R1 > SET EXPT ERROR BITS 
R1,R2 :SEE IF UNEXPECTED ERRORS 
LT62Xx 7 1F NOT: BR 
PC,LTGERS ELSE PRINT ERROR 
PC, ITER 
PC,ORVCLR 
~ TSCD2 ;RETURN TO SCHED 


SEQ 0098 


by F at - rg 


CZTUKA.P 


015140 


015412 
015416 


12-JUN-7 


000240 


000167 


000000 


TEST 
16:17 


163514 
000440 


163260 
000100 
000100 
000027 


007640 
000200 


000100 


000200 


034165 
000001 
005120 


163144 
102500 
000200 


005060 
006514 


005540 
164414 
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MACY11 30(1046) 22-JUN-78 08:58 PAGE 99 


163440 
163522 


163310 


163256 


163266 
163256 
163246 


000120 
163216 


163174 


163332 
163350 


;LOGIC TEST 635: PE FORMAT ERROR(PEF )eertaxanae 


i763: NOP 
TST NRZOF 
BNE LT63XX 
JSR PC,STATIC 


;SEE IF NRZ ONLY 
IF SO: BR 
:GO SEE IF STATIC ONLY 


MOV #MSLT63,EMADDR ;SET HEADER 
MOV #LT63IT.SCOLP ;SET SCOPE ADDRESS 
LT63IT: JSR PC, INIT1 ; INITIALIZE 
MOV #-10,awC :SET we=10 
MOV #-20.aFC ;SET FC=20 
BIS #2300,aTC ;SET TO PE,NORM 
MOV #WDATA,@BA SET BA=START OF  YRITE BUFFER 
MOV #61,aC1 ;LOAD WRITE+GO 


LT63A: TST arc -SEE IF _ FRAME OUT 


BWE LT63A IF SO: 
1$: BIT #100, amR 
BEQ 1$ : DELAY 
23: BIT #100,amR 
BNE 2$ 
pg ~ ‘ews sSET MM CODE TO KILL PEF 
MOV #4000. ,LT630 
L1T638: BIT #200,a0S :SEE IF DRY SET 
BNE LT63C :1F SO: BR 
DEC RO 
BNE LT63B8 sAWAIT DRY 
DEC L1630 
BNE LT635B 
LT63C: NOP 
BIT #200,aER :SEE IF PEF SET 
BNE LT63D :1F SO: BR 
MOV #TMS25,ERADD ;SET ERROR TAG 
MOV #1,EXFL sSET EXPT FLAG 
JSR PC,LTGERO :GO PRINT ERROR 
BR LT63xX 
L7T63D: MOV @ER,R2 sGET ERROR REGISTER 
BIC #102500 ,R2 72**MASK NSG 
MOV #200,R1 :SET EXPT ERROR BITS 
CMP R1,R2 -SEE IF UNEXPECTED ERRORS 
BEQ LT63X :1F NOT: BR 
JSR PC,LTGERS ELSE PRINT ERROR 
LT63X: NOP 
JSR PC, ITER 
JSR PC, DRVCLR 
LT63XX: JMP TSCD2 :RETURN TO SCHED 
LT630: 0 


SEQ 0099 





J § 
oe gs CONTROL LOGIC TES! MACY11 30(1046) 22-JUN-78 08:58 PAGE 100 


CZTUKA.P 12-JUN-78 16:17 SEQ 0100 
net sLOGIC TEST 64: FRAME COUNT OVERFLOW(M8905) «xeeee% 
3487 015420 000240 L164: NOP 
3488 015422 012767 033351 163172 MOV #MSLT64,EMADDR :SET TEST HEADER 
3489 015430 012767 015436 163254 MOV WLT64I1T,SCOLP :SET SCOPE ADDRESS 
3490 015436 004767 006544 LTS641T: JSR PC,INIT1 :G0 INIT 
3491 015442 012777 177770 163042 MOV #-10,awc :SET WC = 10 
3492 015450 012777 177760 163040 MOV #-20,aFC :SET FC = 20 
3493 015456 052777 001700 163056 BIS #1700,aTC 7SET TO NRZ, NORMAL, ODD 
3494 015464 012777 034350 163022 MOV #WDATA,@BA :SET BUS ADDRESS 
3495 015472 012777 000013 163034 MOV #13, aMR :SET WRAP 2 
3496 015500 012777 000061 163002 MOV #61,aC1 sLOAD WRITE+GO 
3497 015506 012700 040000 MOV #40000, RO 
3498 015512 005777 163024 LT64A: TST atc :SEE IF ALPHA 
3499 015516 100002 BPL L1T64B s1F SO: BR 
3500 015520 005300 DEC RO 
3501 015522 001373 BNE LT64A :AWAIT ALPHA 
3502 015524 012700 000020 LT64B: MOV #20,R0 :SET CLK CNT 
3503 015530 052777 000040 162776 LT64C: BIS #40,aMR 
3504 015536 042777 000040 162770 BIC #40,aMR sCLOCK MR 
3505 015544 005300 DEC RO 
3506 015546 001370 BNE LT64C :1F NOT DONE ALL: BR 
3507 015550 017702 162742 MOV aFC,R2 
3508 015554 005001 CLR R1 sSET TEST WORD 
3509 015556 020102 CMP R1,R2 SEE IF EXPT = RCVD- 
3510 015560 001410 BEQ LT64Xx :1F SO: BR 
3511 015562 012767 026342 163102 MOV #MSG19, ERADD :SET ERROR CODE 
3512 015570 012767 000001 163120 MOV #1,EXFL :SET EXPT FLAG 
3513 015576 004767 006044 JSR PC,LTGER1 >GO PRINT ERROR 
3514 015602 000240 LT64X: NOP 
3515 015604 004767 006312 JSR PC. ITER :GO SEE IF ITERATIONS 
sae 015610 000167 164216 JMP TSCD2 :RETURN TO SCHEDULAR 
a sSTATIC TESTS ONLY SUBROUTINE*texexene 
3520 015614 005767 163120 STATIC: TST STFLG :SEE IF SINGLE TEST ONLY 
3521 015620 001006 BNE STATX :1F SO: BR 
3522 015622 005767 163164 TST STATC :SEE IF STATIC ONLY 
3523 015626 001403 BEQ STATX :IF NOT: BR 
3524 015630 005726 TST (SP)+ RESET STACK 
3525 015632 000167 164174 JMP TSCD2 :RETURN TO SCHEDULAR 
Eh 015636 000207 STATX: RTS PC *RETURN TO TEST 


TMO2/TU4S CONTROL LOGIC TEST 
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3 015640 000240 
3537 015642 605767 163072 


3539 015650 032777 000100 
3541 015660 012704 034766 


3553 015742 062701 000001 


3556 015752 000171 001030 
3557 015756 032777 010000 
3559 015766 012702 000202 


3560 0615772 012701 035646 
3561 015776 042721 140300 


3564 016006 012702 000202 
3565 016012 012701 036260 


3569 016024 000207 


3573 016026 072701 177777 
3574 By 3 012702 000202 


3578 016044 000167 177706 


MACY11 30(1046) 


162712 


163046 


162552 


DSUP: 


DS1: 


DS2: 


DS3: 
DS4: 


DAT: 


DATIA: 
DAT1B: 


k 8 
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FSSA SAA EAA AAA AERA RESTART ERA RA EA AREA KARARAKEEKAE 


:DATA SETUP ROUTINE: 


:THIS ROUTINE IS USED TO GENERATE THE DATA PATTERNS 
;USED BY THE WRAP AROUND TESTS (LT50-LT64). 


SRA A AAA AERA AACE RERAEACAARAAAARAEARAAAKEKRAEKEEE 


STFLG ;SEE IF SINGLE TEST 

DSO : IF NOT: BR 

#100 ,aSUR sSEE IF SELECT PATTERN 

DSO :IF NOT: BR 

#WHSG3,R4 

PC, TTOUT ;REQUEST PATTERN NUMBER 
PATRN,R35 

PC,OCTP sPRINT PATTERN NUMBER 
#PATRN,RS :GET ADDRESS OF PATRN ENTRY 
#1,R1 :SET SIZE OF ENTRY 

#3,R2 ;SET UPPER LIMIT 

#0,R3 sSET LOWER LIMI 

PC,TTR :GO GET PATTERN NUMBER 
#1,WPGFL :SET FLAG 

#WBUFF ,R3 :R3 = ADDRS OF WRITE BUFFER 
PATRN,R1 :R1 = PATTERN SELECTOR 
#1,R1 : BUMP POINTER 

R1 ;MAKE PATTERN SELECTOR EVEN 
@DATBL(R1) >GO GENERATE PATTERN 
#10000 ,adT sSEE IF SEVEN TRACK 

DS3 :IF NOT: BR 

#202,R2 ;SET BUFFER SIZE 


#WBUFF ,R1 >SET START OF BUFFER 
#140300,(R1)+  ;MASK FOR 7 CH 
Re :SEE IF DONE 

:; IF NOT: BR 


DS2 

#202 ,Re :R2=BUFFER SIZE +2 
#RBUFF ,R1 sR1=READ DATA START 
(R1)+ :CLEAR BUFFER 

R2 ;SEE IF DONE ALL 
DS4 ; IF NOT: BR 

PC sEXIT 


#-1,R1 ;R1=DATA 


#202 ,R2 ;R2=WORD COUNT +2 
R1,(R3)+ ;LOAD BUFFER 

R2 ;SEE IF DONE 
DAT1B ; IF NOT: BR 

DS1 ; RETURN 


SEQ 0101 


TMO2/TU45 CONTROL LOGIC TEST 
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016050 
016052 


016056 
016062 


016066 


016104 


005001 
000167 


012701 
000167 


005001 


000167 


12-JUN-78 16:17 


177754 
125125 
177744 


000404 


177646 


DAT2: 


DATS: 


DAT4: 
DAT4A: 
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sALL ZEROSeeteeterer 


CLR R1 ;R1=DATA 

JMP DATIA ;LOAD BUFFER 
;ONE/ZERO IN ALTERNATING CHARACTERS*tetexenee 
MOV #125125,R1 ;R1=DATA 

JMP DATIA ;LOAD BUFFER 


sALL BITS 0-377eeeeeereee 


;R1=STARTING DATA 
;R2=CHARACTER COUNT 
;LOAD BUFFER 


R1 
MOV #404 ,R2 
MOVB — 


INCB R ;BUMP DATA 
DEC R2 :SEE IF DONE 
BNE DAT4A :IF NOT: BR 
JMP DS1 ; RETURN 


SEQ 0102 


CZTU 


916110 


016144 
016150 


016154 
016162 


016166 


016226 


016232 


016334 


012767 
012767 


000167 


012767 
000167 


012767 


000167 


012767 


000167 


ote CONTROL LOGIC TEST 
-P11 12~JUN-78 16:17 


000006 


000512 


000010 
177730 


000012 


000434 


000014 


162520 
000376 


000020 


162462 
000004 
000326 
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162632 
162626 


162622 
162616 


162566 


162554 
162550 


162544 
162540 


162510 
162474 


162462 
162452 
162440 
162456 


162426 


WAMO: 


WAMO1: 


WAM1: 


WAM2: 


WAM2A: 


WAM3: 


WAM3A: 


WAM3B: 
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;WRAP AROUND MODE 0 GLOBAL *+*+*t+* 


MOV #6,WAM 7SET WAM NUMBER 
MOV #60,FUN 
DATC 


MOV #WBUFF ,DATAD 
MOV #RBUFF ,.RDAD 
JSR PC,SETUP 
JMP EXEC 


:WRAP AROUND MODE 1 WRITE BUFFERS «xaannaese 


MOV #10,WAM 
JMP WAMO1 


;WRAP AROUND MODE 2 BIT FIDDLER WRITE**eetanane 


MOV #12,WAM 
MOV #60,FUN 
DATC 


MOV #WBUFF ,DATAD 
MOV #RBUFF ,RDAD 
JSR PC, SETUP 
JMP EXEC 


sWRAP AROUND MODE 3 BIT FIDDLER READ*eseexanee 


MOV #14, WAM ;SET WAM NUMBER 

MOV #70,FUN :SET FUNCTION 

MOV #RBUFF ,DATAD >SET BUFFER ADDRESS 

MOV #WBUFF ,WTAD ;SET POINTER TO WRITE BUFFER 
TST RORVF 


WAM3A 
ADD #376 ,DATAD 
ADD #377 ,WTAD 


;SET BUFFER ADDRESS 
;SET POINTER TO READ BUFFER 
:GO SET UP 


;SET READ REVERSE CODE 


:GO SET UP 
JMP EXEC :GO EXECUTE 


SEQ 0103 
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162374 
162426 
177260 


000020 


177000 


010000 
020000 


035007. 


006104 
100000 


177662 
000014 
162244 


162254 
162216 


162210 
000020 


162174 


040000 


020000 


034750 
005712 
100000 
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162120 
162372 


162102 


162062 
162122 


162102 | 


162244 


162240 
162232 


161710 


SETUP: 


SETO: 
SET1: 


SET2: 


SP01: 


SPO: 
SP1: 


SP1A: 


SP1B: 


SP3: 


SP4: 


SP5: 
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sREGISTER SETUP ROUTINE*tttte 


#10C00, acs 
#20000, o@SUR 
or treat oR4 
#180000 asur 
SET1 
#14 ,WAM 

P1B 


@WTAD ,DATC 
#177400,DATC 


PC 

#20000 ,aSWR 
SP4 

#WMSG2 ,R4 
PC, TTOUT 
#100000 ,aSwR 
SP5 


PC 


ADDRESS 
= ASSURE DRIVE THERE 
“IF SO: BR 
sSEE IF PRINT ERRORS 
F NOT: BR 


sPRINT NON~EXISTANT DRIVE 
:SEE IF HALT ON ERROR 


7 SEE u SINGLE TEST 
:IF NOT: BR 
SEE IF ‘WAVE SELECTED PATTERN 


IF $0: 


:GO DO DATA SETUP 
:GO INIT SELECT gd SLAVE 


:GO ASSURE NOT AT 
SET FC=WCX2 

+SEE IF CORE DUMP 
F NOT: BR 

SET FC=WCX4 
SET WC 

:SET BUS 


; IF NOT: BR 
;RESETUP 


sSEE IF WAM 3 
IF NOT: BR 
:GET FIRST CHAR 


;SEE IF READ REVERSE 
IF NOT: BR 
:DECREMENT POINTER 


;BUMP POINTER 


>SEE IF CORE DUMP 
F NOT: BR 


s1F NOT: 

:BUMP POINTER AGAIN 

sSET UNIT DESCRIPTION (DEN.PAR,FMT) 
sSET MAINT MODE 


T WAR 


3 SE 
sSET DATA 
;SET FUNCTION 


;PRINT SETUP ERROR 
;SEE IF HALT ON ERROR 


ASSURE NO ERROR 


:1F N oy BR 


RETURN 
;SEE IF PRINT ERRORS 
;I1F NOT: BR 


;1F NOT: BR 
; RETURN 
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000040 


000040 
000010 


000372 
000001 


000002 
100000 


161602 
000400 
000020 


001000 
000014 


002000 


000246 


000010 
000014 


161700 
177400 
161720 
161662 


161654 
000020 


161640 
161634 
000010 
177400 


161354 
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161634 
161624 
162032 
161556 


161574 


162000 


161736 
161754 


161700 


161666 


161624 
161374 


EXEC: 


EXO: 


EX1: 


EX1A: 


EX2: 


EX3: 


EXS: 
EX5A: 


EXSA1: 


EXSB: 
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sEXECUTE WAM ROUTINEteee* 


#40 ,aMR 
Ex0 


#40,amR 
#10, WAM 
EX1 


Exw2 
#1,aC1 
RO 


E 
@wWTAD, 


#2,R1 
—-. 


sASSURE MAINT CLOCK IS ZERO 
sI1f NOT: CLEAR IT 

;SEE IF WAM 1 OR 2 OR 3 

;1F SO: BR 

:G0 DO WAM 0 


;SET GO BIT 


>SET DELAY 
+SEE IF ALPHA 
SO: BR 


s AWAIT ALPHA 


>SET NUMBER OF CLKS 

:SEE IF CORE DUMP 

IF NOT: BR 

:SET CLOCKS LWCx4 ’ 
EE WAM 3 


:IF NOT PE: BR 


>SET TO ALLOW FOR PRE/POSTAMBLE 


; ADD Hg FOR CRC AND LRC 
SEE IF WAM 3 
IF NOT: “BR 


as x IF REVERSE 
F NOT: BR 
DEC POINTER 


>SEE IF CORE DUMP 
;1F NOT: BR 

:BUMP POINTER 
:SEE IF END 

IF NOT: BR 
;RESTORE POINTER 
:CLOCK UP 

;READ MR 
MASK OUT DATA 
POSITION DATA 


;LOAD NEW DATA 
;CLOCK DOWN AND LOAD NEW DATA 


SEQ 0105 


¢ % 
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3754 017164 000240 NOP 
3755 017166 052777 000040 161340 Ex5C: BIS #40 ,aMR :CLOCK UP 
3756 017174 042777 000040 161332 BIC #40,aMR :;CLOCK DOWN 
3757 017202 017700 161326 MOV @MR ,RO ;GET AR 
3758 617206 000300 SWAB RO 
3759 017210 032767 000010 161560 BIT #10,UDES ;SEE IF EVEN PAR 
3760 017216 001405 BEQ Ex5CO | : IF NOT: BR 
3761 017220 010077 161536 . MOV RO,@RDAD 
3762 017224 005267 161532 ~ INC RDAD 
3763 017230 000402 BR EX5C1 
3764 017232 110077 161524 EX5SCO: MOVB RO,@RDAD ;PUT CHAR IN CORE 
3765 017236 605267 161520 EXS5C1: INC RDAD 
3766 917242 000240 EX5SD: NOP 
3767 017244 005301 DEC R1 ;SEE IF DONE CLKS 
3768 017246 001275 BNE EXSA IF NOT: BR 
Le a 017250 000167 003006 JMP EORP :GO DO EOR 
144 sASSURE NOT AT BOT FOR WRAP TESTS*etaannnee 
3773 017254 032777 000002 161240 BOTT: BIT #2,aDS SEE IF BOT 
3774 017262 001414 BEQ BOTTX ;1F NOT: BR 
3775 017264 052777 001700 161250 BIS #1700,aTC SET NRZ 
3776 017272 012777 000025 161210 MOV #25,aC1 :DO ERASE 
3777 017300 032777 000200 161214 BOTTA: BIT #200,aDS 
3778 017306 001774 BEQ BOTTA AWAIT DRY 
3779 017310 004767 004672 JSR PC, INIT : INIT 
3780 017314 000207 BOTTX: RTS PC ; RETURN 
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0 
002000 
000100 


161172 


000003 


020000 
035212 


005112 
100000 


036260 
000400 


000010 


000200 
000022 
000400 
000276 


MACY11 


161332 
161426 


161120 


161130 


161110 


161266 


161036 


161020 
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EXW2: 


EXW2A: 


EXW2B: 


Exwec: 


EXW2E: 


EXW2F: 


EXW2G: 


EXW2H: 


EXW2J: 


EXW2J0: 
EXW2J1: 


EXW2K: 


EXW2X: 
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SEQ 0107 
EXECUTE WAM Oteeeer 
NOP 
MOV MR,RO ;RO=MR 
MOV #40,R3 :R3=40 
MOV #EXW2H,RTRN =SET INTERRUPT RETURN ADDRESS 
MOV #200,R1 :SET NUMBER OF CLOCKS = FC/2 
BIT #2000, UDES “SEE IF PE 
BEQ EXW2A :1F NOT: BR 
MOV #100,R1 ELSE SET CLKS = FC/4 
MOV RDAD,R2 :SET BUFFER ADDRESS 
MOV #161,aC1 SET WRITE+GO 
CLR aPsu ALLOW INTERRUPT 
BIT R3,aRO 
BEQ EXW2B sAWAIT CLOCK UP 
MOV aRO, (R2)+ :GET DATA 
BIT 3,aRr0 
BNE Exw2C AWAIT CLOCK DOWN 
MOV aro, (R2)+ :GET DATA 
DEC R1 sSEE IF DONE ALL 
BNE EXW2B :1F NOT: BR 
MOV #3,R1 
CLR RO SET DELAY 
DEC RO 
BNE EXW2F 
DEC R1 
BNE EXW2F : DELAY 
BIT #20000, aswR :SEE IF ERROR PRINT 
BNE EXW2G :1F NOT: BR 
MOV SURSE26 - R4 
JSR PC, TTOUT :PRINT NO INTERUPT 
BIT #100000, aSwWR :SEE IF HALT ON ERROR 
BEQ EXW2H : IF NOT: BR 
HALT 
MOV #RBUFF RI :GET START OF READ BUFFER 
MOV #400,R0 :SET SIZE 
MOV R1,R2 
MOV (R2)+,R3 
SWAB 
BIT #10, UDES :SEE IF EVEN PAR 
BEQ Exw2J0 “IF NOT: BR 
MOV R3,(R1)+ : SAVE PAR + DATA 
BR EXW2J1 
_ R3,(R1)+ ASSEMBLE DATA IN BYTES 
BNE EXW2J CONTINUE FOR ALL 
BIT #200, aSWR :SEE IF STATUS CHECK 
BNE EXwW2k :I1F NOT: BR 
asm PC, WSTCK “ELSE GO CHECK STATUS 
BIT #400, aSWR SEE IF DATA CHECK 
BNE EXW2X : IF NOT: 
ssh PC,DCHK “ELSE GO CHECK DATA 
RTS PC sEXIT 
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161056 
160646 


161030 
020000 


160642 
160636 


004536 
004656 
026207 
004520 


004640 
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161070 


161046 


161020 


160776 


160620 


160612 wWSTGO: 


WSICK: 


WSTG: 


WSTX: 
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;WRAP AROUND STATUS CHECK ROUTINE*«teennee 


SERFL 

HDRFL 
#WASG6,ERADD 
aci,R2 

fet a 


PC, 
*unSCOD, ERADD 
acs,R2 


PUASCOE, ERADD 
ads ,R2 


WOS.R5 
PC .WSTG 
—— 


EMADDR ,R4 
PC, TTOUT 
#WRASG23,R4 
PC, TTOUT 
#1, HDRFL 
ERADD ,R4 
PC, TTOUT 
#ASG12,R4 
PC, TTOUT 
R5,R5 
PC,OCTP 
#MSG13,R4 
PC,TTOUT 
R3 


PC. OCTP 
PC 


>CLEAR ERROR FLAG 
:CLEAR HEADER FLAG 
:SET CODE=CS1 
;GET RCVD CS1 


;GET EXPT CS1 

:G0 CHK 

sSET CODE=CS2 

;SET RCVD CS2 

:GET EXPT CS2 

a: NUMBER IN EXPT CS2 


>SET CODE=DS 
:SET RCVD DS 
:GET EXPT DS 
:GO CHK 

:SET CODE=ER 
>GET RCVD ER 
:GET _* ER 


GO CHK 

;SEE IF ANY ERRORS 
:IF NOT: BR 

;SEE IF HALT ON ERROR 
; IF NOT: BR 


3; CONTINUE 

sSEE IF EXPT=RCVD 
sIF SO: BR 

:SET ERROR FLAG 


;SEE IF PRINT ERRORS 
:IF NOT: BR 
:SEE IF DONE HEADER 
IF SO: BR 


sPRINT TEST HEADER 


sPRINT STATUS TAG 
>SET HEADER FLAG 


;PRINT CODE 

sPRINT EXPT TAG 
sPRINT EXPT STATUS 
;PRINT RCVD TAG 


;PRINT RCVD STATUS 
RETURN 


SEQ 0108 
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3891 
sa58 :DATA CHECK ROUTINEt*ees¢ 
3894 020054 000240 DCHK: NOP 
3895 020056 905067 160536 CLR HORFL ;CLEAR HEADER FLAG 
3896 020062 005067 160700 CLR DERFL sCLEAR DATA ERROR FLAG 
3897 020066 005067 160702 CLR CRCNT :CLEAR CHAR CNTR 
3898 020072 032767 000010 160676 BIT #10,UDES ;SEE IF EVEN PARITY 
3899 020100 001402 BEQ DCHKAO ;1F NOT: BR 
3900 020102 600167 000600. JMP DCHKE ELSE GO CHECK EVEN 
3901 020106 022767 000010 160634 DCHKAO: CMP #10,WAM :SEE IF WAM 1 
3902 020114 001006 BNE DCHKA IF NOT: BR 
3903 920116 032767 002000 160652 BIT #2000 ,UDES ;SEE IF PE 
3904 020124 001402 BEQ DCHKA : IF NOT: alte 
3905 020126 000167 001220 JMP PRCHK :GO CHK D 
3906 0201352 012700 177400 DCKKA: MOV #-400,RO : SET NUMBER OF CHARACTERS 
3907 020136 022767 000012 160604 CMP #12,WAM 
3908 020144 001006 BNE DCHKA1 IF NOT WRAP 2: BR 
3909 020146 032767 000020 160622 BIT #20,UDES 
3910 020154 001402 BEQ OCHKA1 :1F NOT CORE DUMP: BR 
3911 020156 012700 177000 MOV #-1000,R0 
3912 020162 022767 000006 160560 DCHKA1: CMP #6, WAM 
3913 020170 001007 BNE DCHKA2 
3914 020172 032767 002000 160576 BIT #2000 ,UDES ;SEE IF PE MODE 
3915 020200 001430 BEQ DCHKB :I1F NOT: BR 
3916 020202 012700 177600 MOV #-200,R0 :SET CHAR CNTR TO FC/2 FOR PE 
3917 020206 000425 BR DCHKB 
3918 020210 022767 000012 160532 DCHKA2: CMP #12, WAM ;SEE IF WRAP 2 
3919 020216 001021 BNE DCHKB :1F NOT: BR 
3920 020220 032767 002000 160550 BIT #2000 ,UDES :SEE IF PE 
3921 020226 001415 BEQ DCHKB IF NOT: BR 
3922 020230 012700 177653 MOV #-125,R0 :POINT TO START OF DATA 
3923 020234 012767 000001 160522 MOV #1,W2FLG sSET WRAP 2 FLAG 
3924 020242 004767 000014 JSR PC ,DCHKB :GO CHECK DATA 
3925 020246 004767 001400 JSR PC ,WIDCHK :GO CHECK WRAP 1 DATA 
3926 020252 005067 160506 CLR W2FLG 
3927 020256 000167 000362 JMP DCHKX 
3928 020262 005067 160500 DCHKB: CLR DERFL 
3929 020266 012701 035646 MOV #WBUFF RI :SET GOOD POINTER 
3930 020272 012702 036260 MOV #RBUFF ,R2 >SET READ POINTER 
3931 020276 032767 000020 160472 BIT #20,UDES ;SEE IF CORE DUMP 
3932 020304 001416 BEQ DCHKO :1F NOT: BR 
3933 020306 022767 000012 160434 CMP #12,WAM 408 IF WAM 2 
3934 020314 001011 BNE DCHKD IF NOT: BR 
3935 020316 005767 160460 TST PATRN ;SEE IF PATTERN 0 
3936 020322 001003 BNE DCHKC : IF NOT: BR 
3937 020324 012701 001054 MOV #WCDPO,R1 SET CORE DUMP PATTERN 0 
3938 020330 000404 BR DCHKO :GO CHECK DATA 
3939 0203532 012701 001042 DCHKC: MOV #UCDP2,R1 ;SET CORE DUMP WRITE PATTERN 2 
3940 020336 000401 BR DCHKO :GO CHECK DATA 
3941 920340 000240 DCHKD: NOP 
3942 020342 121112 DCHKO: CMPB (R1),(R2) ;SEE IF DATA OK 
3943 020344 001466 BEQ DCHK2 :IF SO: BR 
3944 0203546 032777 020000 160214 BIT #20000, aSWR ;SEE IF PRINT ERRORS 
3945 020354 001062 BNE DCHK2 F BR 


;IF NOT: 
3946 020356 005767 160236 TST HDRFL SEE IF DONE HEADER 


G 9 
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3947 020362 001004 BNE . DCHK1 ;1F SO: BR 
3948 020364 016704 160232 MOV EMADDR ,R4 
3949 020370 004767 004170 JSR PC, TTOUT ;PRINT HEADER 
3950 020374 005767 160366 DCHK1: TST DERFL ;SEE IF FIRST ERROR 
3951 020400 001014 BNE DCHKIA ;1F NOT: BR 
3952 020402 912704 035144 MOV #WMSG16,R4 
3953 020406 004767 004152 JSR PC, TTOUT ;PRINT DATA ERROR TAG 
3954 020412 012704 035371 MOV #WMSG32 ,R4 
3955 020416 004767 004142 JSR PC, TTOUT ;PRINT PATRN TAG 
3956 020422 016703 160354 MOV PATRN,R3 
3957 020426 004767 004260 JSR PC,OCTP ;PRINT PATTERN NUMBER 
3958 020432 012767 000001 160160 DCHKIA: MOV #1,HDRFL ;SET HEADER FLAG 
3959 020440 012767 000001 160320 MOV #1,DERFL ;SET DATA ERROR FLAG 
3960 020446 012704 035170 MOV #UMSG21,R4 
3961 020452 004767 004106 JSR PC, TTOUT ;PRINT CHARACTER NUMBER TAG 
3962 020456 016703 160312 MOV CRCNT,RS 
39635 020462 004767 004224 JSR PC,OCTP ;PRINT CHARACTER NUMBER 
5964 020466 012704 035156 MOV #UMSG17..R4 
3965 020472 004767 004066 JSR PC, TTOUT PRINT GOOD TAG 
3966 020476 111103 MOVB CR) -RS 
3967 020500 004767 004434 JSR PC ,DOU PRINT GOOD DATA 
3968 020504 012704 035163 MOV *uhsG20, R4 
3969 020510 004767 004050 JSR PC, TTOUT PRINT BAD TAG 
3970 020514 111203 MOVB (R2) ,R3 
3971 020516 004767 004416 JSR PC ,DOUT :PRINT BAD DATA 
3972 020522 005767 160236 DCHK2: TST W2FLG 
3973 020526 001020 BNE DCHK2B 
3974 020530 005201 INC R1 ;BUMP POINTER 
3975 020532 032767 000020 160236 BIT #20,UDES >SEE IF CORE DUMP 
3976 020540 001413 BEQ DCHK2B :1F NOT: BR 
3977 020542 022767 000012 160200 CMP #12,WAM sSEE IF WAM 2 
3978 020550 001006 BNE DCHK2A IF NOT: BR * 
3979 020552 005201 INC R1 :BUMP POINTER 
3980 020554 005711 TST (R1) ;SEE IF END OF PATTERN 
3981 020556 001004 BNE DCHK2B IF NOT: BR 
3982 020560 162701 000010 SUB #10,R1 ;RESET POINTER TO START OF PATTERN 
39835 020564 000401 BR DCHK2B ;CONTINUE CHECK 
3984 020566 000240 DCHK2A: NOP 
3985 020570 005202 DCHK2B: INC Re 
3986 020572 022767 000006 160150 CMP #6, WAM ;SEE IF WAM 0 
3987 020600 001005 BNE DCHKS 
3988 020602 032767 002000 160166 BIT #2000 ,UDES SEE IF PE 
3989 020610 001401 BEQ DCHK3 IF NOT PE: BR 
53990 020612 005201 INC R1 :BUMP WRITE DATA ADDRESS 
3991 020614 005267 160154 DCHK3: IWC CRCNT ;BUMP CHAR CNTR 
3992 020620 032777 000400 157742 BIT #400 ,aSUR ;SEE IF CONT DATA CHK 
3993 020626 001006 BNE DCHKX :1F NOT: BR 
3994 020630 005200 INC RO ;SEE IF DONE 
3995 0206352 001243 BNE DCHKO ;IF NOT: BR 
3996 020634 005767 160124 TST W2FLG 
3997 020640 001401 BEQ ag 
3998 020642 000207 RTS 
3999 020644 032777 100000 157716 DCHKX: BIT #100000, aSwR ;SEE IF HALT ON ERROR 
4000 020652 001404 BEQ DCHKX ;1F NOT: BR 
4001 020654 005767 160106 TST DERFL. ;SEE IF DATA ERROR OCCURED 


4002 020660 001401 BEQ = DCHKX1 SIF NOT: BR 
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160104 
157724 
160066 
160064 
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CRCNT 
HDRFL 
DERFL 
PREFL 
PC 


;CLEAR CHAR CNTR 

; CLEAR HEADER FLAG 
;CLEAR DATA ERROR FLAG 
;CLEAR PREAMBLE FLAG 


TURN 


SEQ 0111 
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177400 
035646 
036260 


000010 
000001 


177400 


100020 
000001 


100000 
077400 


020000 
157564 
157560 
003516 
157714 


035144 


003606 
000001 


003412 
003760 
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157542 


157652 
157476 


DCHKE : 


DCKEO: 


DCKE1: 


DCKE2: 


DCKES: 


DCKE4: 


DCKES: 


DCKE6: 


KE7: 
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SEVEN PARITY DATA CHECKeeere 


#-400,RO 
#WBUFF ,R1 
#RBUFF ,R2 
_ 


R 
#10,R4 
#1,R5 
DCKE2 
R3 

R4 
DCKES 
R5 
DCKE1 


(R1),R5 
#177400,R5 
R3 


DCKE4 
#100020,R5 
DCKES 
#1,R3 


CKE5 
#100000 .R5 
#77400, (R2) 
R5,(R2) 


DCKE10 
#20000 ,aSwWR 
DCKE10 
HDRFL 

DCKE6 
EMADDR ,R4 


PC, TTOUT 
DERFL 


DCKE7 
#WASG16,R4 
PC,TTOUT 
#UMSG32 RA 
PC, TTOUT 


PATRN,R3 
PC,OCTP 


#1,DERFL 
#1,HDRFL 
ag 2 a 


PC, 
WuhSG17, R4 
PC, TTOUT 
R5,R3 

+ 


;SET NUMBER OF CHARACTERS 
sRI=START OF WRITE BUFFER 
;R2=START OF READ BUFFER 
;GET EXPT DATA 


:SET NUMBER OF BITS 


;SEE IF ONE BIT 

IF NOT: BR 

: COUNT ONE BITS FOR PARITY CHECK 
;SEE IF DONE 


IF SO: BR 
:POINT TO NEXT BIT 


;GET EXPT DATA 
sMASK DATA FIELD 


;1F NO ONE BITS SET: BR 


:SEE IF ODD NUMBER OF ONE BITS 
;IF NOT: BR 

:SET EVEN PARITY BIT=1 

sMASK DATA FIELD 

;SEE IF DATA + PARITY GOOD 

IF SO: BR 

: SEE IF ERROR PRINT 

;1F NOT: BR 

;SEE IF DONE HEADER 

IF SO: BR 


:PRINT HEADER 
SEE IF = BAD CHAR 


IF NOT 

;PRINT BAD DATA TAG 
sPRINT PATTERN TAG 
;PRINT PATTERN NUMBER 


;SET DATA ERROR FLAG 
;SET HEADER FLAG 


;PRINT CHAR NUMBER TAG 
;ORINT CHAR NUMBER 
;PRINT GOOD DATA TAG 
sPRINT EXPT DATA 


SEQ 0112 
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12-JUN-78 16:17 SEQ 0113 
4065 021162 004767 000070 JSR, PC, DCKEP :GO PRINT PARITY BIT 
4066 021166 000240 NOP 
4067 021170 012704 035163 MOV § #WMSG20,R4 
4068 021174 004767 003364 JSR PC, TTOUT ;PRINT BAD TAG 
4069 021200 111203 MOVB (R2),R3 
4070 021202 004767 003732 JSR PC,DOUT ;PRINT BAD DATA 
4071 021206 011203 MOV (R2) ,R3 
4072 021210 004767 000042 JSR PC,DCKEP . § ;GO PRINT PARITY BIT 
4073 021214 000240 NOP 
4074 021216 005201 DCKE10: INC 
4075 021220 005722 TST tR2)+ :BUMP POINTERS 
4076 021222 005267 157546 INC CRCNT “BUMP CHAR CNTR 
4077 021226 032777 000400 157334 BIT #400, aSwR :SEE IF CONTINUE DATA CHECK 
4078 021234 001402 BEQ DCKE11 TIF SO: BR 
4079 021236 000167 177402 JMP DCHKX :GO TO END OF DATA CHECK 
4080 021242 005200 DCKE11: INC RO iSEE IF DONE 
4081 021244 001402 BEQ DCKE12 ZF 
4082 021246 000167 177452 : JMP DCKEO sELSE CONTINUE 
4083 021252 000167 177366 DCKE12: JMP DCHKX :60 TO END OF DATA CHECK 
4084 021256 000240 DCKEP: NOP 
4085 021260 012767 000240 157326 MOV #240,T0B 
4086 021266 004767 003372 JSR PC, TOG ; SPACE 
4087 021272 012767 000260 157314 MOV #260, TOB :SET PAR=0 
4088 021300 005703 TST R3 :SEE IF PARITY REALLY=0 
4089 021302 100002 BPL DCKEPO IF SO: BR 
4090 021304 005267 157304 INC TOB SELSE SET TO 1 
4091 021310 004767 003350 DCKEPO: JSR PC, TOG :PRINT PARITY BIT 
4092 021314 000207 RTS PC RETURN 
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021316 


021610 


012700 


otha 2 CONTROL LOGIC TEST 
‘ 12-JUN-78 16:17 


000051 


157424 


000016 
000051 


035402 
036260 


000001 
020000 
157200 
157174 
003132 
157332 
035315 


035277 


6 
000240 
003130 


003376 


003070 
003336 
157164 


MACY11 30(1046) 


000001 
157156 


157064 


157024 


PSCHK: 


PRCHK: 


PD2: 
PD3: 


PD4: 


PDS: 
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;PREAMPLE/POSTAMPLE CHECKtteeees 


(R1), (R2) 
PD1 
1(R1),1(R2) 
PD5 

#20000, aSWR 
PD5 


HDRFL 

PD4 
EMADDR ,R4 
PC,TTOUT 
PREFL 


PD2 
eo” »R4 


3 
#UMSG28 ,R4 
PC, TTOUT 
HDRFL 
#WUMSG21 R4 


OUT 
(R1)+, " 
CRCNT 
RO 


;SET SIZE OF POSTAMBLE 
;SET POINTER TO POSTAMBLE 
; CLEAR HEADER FLAG 
;CLEAR CHAR CNTR 
;CLEAR DATA ERROR FLAG 


;GO CHECK POSTAMPLE 


;SET SIZE OF PREAMBLE 
:SET POINTER TO PREAMBLE 

;SET POINTER TO START OF READ BUFFER 
>BUMP ADDRESS POINTERS 


CHECK DATA 


;IF N 
: IF 


NOT GOOD: BR 
:COMPARE COMPLIMENT BYTE 
GOOD: BR 


:SEE IF PRINT INHIBIT 

IF SO: BR 

+SEE IF DONE HEADER 
SO: BR 


; PRINT 
;SEE IF PREAMBLE CHECK 


:IF NOT: 


TEST HEADER 


BR 
: SET POSTAMBLE HEADER 


;PRINT 
:PRINT 
;PRINT 
;PRINT 


3; PRINT 
s PRINT 
> PRINT 


;PRINT 
;BUMP ADDRESS POINTERS 
;BUMP CHAR NUMBER 

;SEE IF DONE 


>SET PREAMBLE HEADER 
PRINT HEADER 


CHAR NUMBER TAG 
CHAR NUMBER 
GOOD TAG 

GOOD CHAR 


COMPL IMENT 


BAD TAG 


BAD CHAR 


COMPLIMENT 


SEQ 0114 


TMO2/TUSS CONTROL LOGIC 


/ 
CZTUKA. 12-JUN-78 1 


P11 


021612 


000167 


TEST 
6:17 


157150 


177016 
157136 
156762 
157132 
157120 
000000 


- . 
MACY11 30(1046) 22-JUN-78 08:58 PAGE 115 


PD6: 


DERFL 
WIDCHK 


;1F NOT: BR 

sSEE IF PREAMBLE 
sIF SO: BR 

:GO TO EXIT ROUTINE 
7;SET PREAMBLE FLAG 
;CLEAR HEADER FLAG 
s;CLEAR CHAR CNTR 


:CLEAR DATA ERROR FLAG 
;GO CHECK WRAP 1 DATA 


SEQ 0115 


a 9 
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UKA.P 12-JUN-78 16:17 SEQ 0116 
4160 
ree ;WAM 1 PE DATA CHECKtttee 
4163 021652 012700 177400 WIDCHK: MOV #-400,R0 ;SET NUMBER OF CHAR TO CHECK 
4164 021656 012701 035646 MOV #WBUFF ,R1 sSET WRITE DATA POINTER 
4165 021662 012702 036260 MOV #RBUFF ,R2 :SET READ DATA POINTER 
4166 021666 062702 000124 ADD #124 ,R2 :POINT TO START OF DATA 
4167 021672 005767 157066 TST W2FLG SEE IF WRAP 2 
4168 021676 001401 BEQ W1D0 ;1F NOT WAM 2: BR 
4169 021700 005302 DEC R2 RESET POINTER 
4170 021702 111105 W1IDO: MOVB (R1),R5 
4171 021704 120512 CMPB R5,(R2) sCHECK DATA 
4172 021706 001007 BNE W1D1 : IF NOT GOOD:BR 
4173 021710 005767 157050 TST W2FLG sSEE IF WRAP 2 
4174 021714 001001 BNE W1DOA slr SO: BR 
4175 021716 105105 COMB R5 ;COMPLIMENT EXPT DATA 
4176 021720 120562 000001 WIDOA: CMPB R5,1(R2) ; CHECK COMPLIMENT DATA 
4177 021724 001510 BEQ W1D3 :IF GOOD: BR 
4178 021726 032777 020000 156634 wWiD1: BIT #20000, aSWR :SEE IF PRINT INHIBIT 
4179 021734 001104 BNE W103 :IF SO: BR 
4180 021736 005767 156656 TST HDORFL :SEE IF DONE HEADER 
4181 021742 001020 BNE W1D2 :1F SO: BR 
4182 021744 016704 156652 MOV EMADDR ,R4 
4183 021750 004767 002610 JSR PC, TTOUT PRINT TEST HEADER 
4184 021754 012704 035144 MOV #UMSG16,R4 
4185 021760 004767 002600 JSR PC, TTOUT sPRINT BAD DATA TAG 
4186 021764 012704 035371 MOV #WASG32 .R4 
4187 021770 004767 002570 JSR PC, TTOUT sPRINT PATRN TAG 
4188 021774 016703 157002 MOV PATRN,RS 
4189 022000 004767 002706 JSR PC ,OCTP :PRINT PATTERN NUMBER 
4190 022004 012767 000001 156606 wWiD2: MOV #1, HORFL ;SET HEADER FLAG 
4191 022012 012704 035170 MOV #WASG21,R4 
4192 022016 004767 002542 JSR PC, TTOUT :PRINT CHAR NUMBER TAG 
41953 022022 016703 156746 MOV CRCNT,RS 
4194 022026 004767 002660 JSR PC ,OCTP ;PRINT CHAR NUMBER 
4195 022032 012704 035156 MOV #UMSG17.R4 
4196 022036 004767 002522 JSR PC, TTOUT s>PRNT GOOD TAG 
4197 022042 111105 MOVB (Ri) RS 
4198 022044 110503 MOVB R5,R3 :GET GOOD CHAR 
4199 022046 005767 156712 TST W2FLG ;SEE IF WRAP 2 
4200 022052 001001 BNE WID2A :IF SO: BR 
4201 022054 105103 COMB R3 :ELSE COMPLIMENT CHAR 
4202 022056 004767 003056 WID2A: JSR PC ,DOUT ;PRINT CHARACTER 
4203 022062 012767 000240 156524 MOV #240, T0B 
4204 022070 004767 002570 JSR PC,10G ; SPACE 
4205 022074 110503 MOVB R5,R3 
4206 022076 004767 003036 JSR PC ,DOUT PRINT CHAR 
4207 022102 012704 035163 MOV #WMSG20 ,R4 
4208 022106 004767 002452 JSR PC, TTOUT ;PRINT BAD TAG 
4209 022112 116203 000001 MOVB 1(R2) ,R3 
4210 022116 004767 0035016 JSR PC ,DOUT ;PRINT BAD CHAR 
4211 022122 012767 000240 156464 MOV #240,TOB 
4212 022130 004767 002530 JSR PC,T0G ; SPACE 
4213 022134 111203 MOVB (R2) ,R3 
4214 022136 004767 002776 JSR PC ,DOUT ;PRINT CHA 


HAR 
4215 022142 005267 156620 INC DERFL ;SET DATA ERROR FLAG 


Nn 9 
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CZTUKA.P 12-JUN-78 16:17 SEQ 0117 
4216 022146 122122 W1D3:  #CMPB (R1)+,(R2)+ :BUMP ADDRESS 
4217 022150 105722 TSTB (R2)+ :BUMP ADDRESS 
4218 022152 005267 156616 INC CRCNT :BUMP CHAR CNTR 
4219 022156 000406 Be » W1D5 
4220 022160 005767 156600 WiD4: TST W2FLG :SEE IF WRAP 2 
4221 022164 001401 BEQ W1D4A :1F NOT: BR 
4222 022166 000207 RTS PC “ELSE RETURN 
4223 022170 000167 177122 W1D4A: JMP PSCHK :GO CHECK POSTAMBLE 
4224 022174 005200 W1D5: INC RO 
4225 022176 001770 BEQ W1D4 
1359 022200 000167 177476 JMP w1D0 
1559 :PREAMBLE/POSTAMBLE GENERATE SUBROUTINE **eeneeene 
4230 022204 000240 PPGEN: NOP 
4231 022206 012700 000050 MOV #50,R0 sSET SIZE OF PREAMBLE 
4232 022212 012701 035402 MOV #PRE,R1 
4233 92°216 005721 TST (R1)+ :SET ADDRESS OF PRE 
4234 ©2220 012721 177400 PPGO: MOV #177400,(R1)+  ;FILL TABLE 
4235 622224 005300 DEC RO SEE IF DONE 
4236 022276 001374 BNE PPGO :1F NOT: BR 
4237 022230 012701 035524 MOV #POST,R1 :SET ADDRESS OF POST 
4238 022234 012700 000050 MOV #50, RO 3SET SIZE OF POST 
4239 022240 012721 000377 MOV #377, ( 7SET SYNC CHAR 
4240 022244 012721 177400 PPG1: MOV 7177400, cave :FILL TABLE 
4241 022250 005300 DEC RO :SEE IF DONE 
4242 022252 001374 BNE PPG1 :1F NOT: BR 
4243 022254 000207 RTS PC :RETURN 


TMO2/TUSS CONTROL LOGIC TEST 


CZTUKA.P11 


022256 


022456 


 12=JUN-78 16:17 


000002 
000001 


020000 
156246 
156242 
002200 
035334 


002170 
100000 


156262 
000200 
175130 
000400 
175404 
156220 


MACY11 30(1046) 


156224 


156164 


156224 


156166 


156144 


156126 


EORPA: 
EORP: 


EORP1: 


EORPIA: 


EORP2: 


EORPS: 


EORPX: 
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10 
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sEND OF RECORD FORCE SUBROUTINEt*ee« 


E 

PC ,WSTCK 
#400 ,aSWUR 
EORPX 

PC ,DOCHK 


TEMP2 
PC 


sAWAIT GO RESET 


sSET WRAP FLAG 

;GET MAINT REG 

;CLEAR CURRENT OP CODE 
:SET EOR CLEAR OP CODE 
:D0 EOR 

;CLEAR EOR AND MIM 


;SEE IF GO GONE 
F SO: BR 


‘ If ERROR PRINT INHIBIT 
SEE IF DONE HEADER 
>IF SO: BR 


sPRINT HEADER 


:PRINT EOR GO BIT ERROR 
;SEE IF HALT ON ERROR 


IF NOT: BR 


SEE IF WAM 


ZF 


NOT: BR 

sSEE IF STATUS CHECK 
:1F NOT: BR 
sELSE GO CHECK STATUS 
:SEE IF DATA CHECK 
;1F NOT: BR 
ELSE GO CHECK DATA 
;CLEAR FLAG 

TURN 


SEQ 0118 


TMO2/TUSS CONTROL LOGIC 
12-JUN-78 


CZTUKA.P11 


005767 
001006 
032777 


156232 
027431 
000001 
156160 
020000 
000224 
156072 


156066 
002024 
000001 


156164 
002120 
156120 


025702 
000001 


025721 


156112 
156102 
035264 


001770 
000100 
010000 


026277 


155616 


155704 
020000 


MACY11 30(1046) 


156200 
156246 


156054 


156052 


156104 


155644 


155576 


LTGERS: 
LTGERO: 


LTGER: 


LTGA: 


LTGA1: 


LTGA2: 


LTGB: 
LTGC: 


LTGCO: 
Te: 


LTGX: 


LTGXA: 
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;LOGIC TEST ADDRESSING ERROR SUBROUTINE **teenexaee 


EXFL 

#MSG51,ERADD 

#1, ADDFL :SET NO ADDRESS FLAG 
G :CLEAR PRINT FLAG , 

#20000, aSWR ;SEE IF SHOULD PRINT $ 
A :IF SO: BR 

LTGX sELSE GO TO EXIT 

HDRFL ;SEE IF PRINTED HEADER 

LTGA1 :1F SO: BR 

EMADDR ,R4 

PC, TTOUT sPRINT TEST HEADER 

#1,HDRFL >SET HEADER FLAG . 

ERADD ,R4 

PC, TTOUT :PRINT CONDITION ERROR 

ADDFL 

LTGA2 

R1,R35 

ca :PRINT ADDRESS 

LTGC : IF NO STATUS: BR 

#ASG6.R4 

#1,EXFL sEXPT-NOT RCVD 

LTGB 

#MSG7,R4 sRCVD-NOT EXPT 

PC, TTOUT sPRINT STATUS 

PFLG 

ADDFL >SEE IF ADD TST 

LTGD IF SO: BR 

Teor * :SEE IF TEST 24 

LTGCO ; IF NOT: BR 

#WASG27 .R4 

PC, TTOUT ;PRINT DATA TAG 

#ASG12,R4 

PC, TTOUT sPRINT EXPT TAG 

#-1 oR3 , 

PC ,OCTPE sPRINT EXPT 

#ASG13,R4 

PC, TTOUT dd RCVD TAG 

R1,R3 T RCVD 

PC ,OCTPE PRIN NT RCVD 

PC ,,REGP sPRINT REGISTERS 

#10000 ,aSwR 

LTGX 

#MSG16,R4 

PC, TTOUT 

ITCNT,RS :PRINT ITERATION 

PC,OCTP 

aSwWR 

LTGXA : IF NOT STOP ON ERROR: BR 

PFLG 

LTGXX ; IF PRINTED: BR 

#20000 , aSwR 


SEQ 0119 


TMO2/TUSS CONTROL LOGIC 
12-JUN-78 


CZTUKA.P11 


022772 
022774 
023000 
023004 


023010 
023014 


023150 


000207 


TEST 
16:17 


177522 


001056 


027254 


001532 


LTGXX: 


REGP: 


D110 
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:IF STILL NO PRINT: BR 
sELSE GO PRINT ERROR 
:CLEAR ADDRESS FLAG 


sEXIT 


;SUBROUTINE TO PRINT MAJOR REGISTERS*tteeteaee 


#ASG46,R4 


arc, 
PC ,OCTPE 
PC 


>PRINT REGISTER HEADER 


;PRINT REGISTERS 


SEQ 0120 


TMO2/TUSS CONTROL LOGIC TEST 
CZTUKA.P11 


023152 


12-JUN-78 16:17 


040000 


155476 


090200 


040000 
155270 
155260 


000001 
155350 


155232 


020000 
155302 
155276 


155214 


155302 
020000 
177676 


023152 
000454 


MACY11 30(1046) 


155306 
155310 


155274 


155260 


455174 


155300 


DRVCLR: 


DCD: 


DCA: 


DCAO: 


DCB: 


DCC: 


DCE: 


DCEA: 


DCEX: 


DCEXA: 


DCEXX: 
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sDRIVE CLEAR SUBROUTINE teeeeeees 


—_— 


#20000 ,aSwR 
DCEX 

HORFL 

DCEA 

ERMADDR ,R4 
PC, TTOUT 
#¥SG47,R4 


#DRVCLR,SCOLP 
SCOPE 


PC 


sPOSITION TEST BIT PER DRIVE NUMBER 
;SEE IF DONE 


:SEE IF ERROR PRINT INHIBIT 
:SEE IF PRINT HEADER 

IF NOT: BR 

:PRINT HEADER 

:PRINT DRIVE CLEAR ERROR 
“PRINT REGISTERS 


;SET PRINTED FLAG 
>SEE IF HALT ON ERROR 


: DELAY 


:GO SEE OF ATIN SET 
; ISSUE DRIVE CLEAR 


sSEE IF DRY 
sWAIT FOR DRY 
sSEE IF ERR RESET 
sIF NOT: , 
sSEE IF ERROR REGISTER RESET 
:IF NOT: BR 
sSEE IF ATA RESET 
NOT: BR 


: IF 


SET TEST BIT 
“GET DRIVE NUMBER 
sSEE IF DRIVE 0 
>IF SO: BR 


7 IF 


IF NOT: 
; RETURN 


IF NOT: BR 


: SEE IF HAVE PRINTED 
“SEE IF SHOULD PRINT 
:IF NOT: BR 

“ELSE PRINT THIS ERROR 


>SET SCOPE LOOP ADDRESS 
:GO DO SCOPE LO 
TURN 


NOT: BR 
sS€E If — IS RESET 


SEQ 0121 


TMO2/TUSS CONTROL LOGIC 
12-JUN-78 


CZTUKA.P11 


000207 


TEST 
16:17 


155074 
026716 
000064 
040000 


026700 


155122 


155004 


020000 
155056 
155052 


154764 


155052 
020000 


177674 
155030 


MACY11 


155242 
155052 
155220 


155202 


155034 


154744 


30(1046) 
ATTN: 


ATTA: 


ATTB: 


ATTC: 


ATTD: 


ATTP: 


ATTPA: 


ATTX: 


ATIXA: 


ATTXX: 
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> COMPOSITE ERROR CHECK SUBROUTINE*tteeeeees 


ads 


ATTA 
#MSG52, TEMPS 
ATTP 


#40000,aDS 


ATTB 
#¥SG31, TEMPS 
ATTP 


#1,R3 
#MSG33,, TEMPS 
DR 


sSEE IF ATA SET 
zIF SO: BR 
sELSE PRINT ERROR 


:SEE IF COMPOSITE ERROR SET 
;1F SO: BR 


sELSE PRINT ERROR 
:SET TEST BIT 


:GET DRIVE NUMBER 
;SEE IF DRIVE 0 


;IF SO: BR 


sPOSITION TEST BIT 


;SEE IF DONE 

:IF NOT: BR 

>SEE IF ATTEN SUMMARY SET 
: IF NOT: ae 

ELSE RETUR 

+i i IF PRINT INHIBIT 


;I1F SO: BR 
;SEE IF DONE HEADER 
;I1F SO: BR 


sPRINT HEADER 


:PRINT ERROR TYPE 
sPRINT REGISTERS 

:SET PRINT FLAG 

;SET HEADER FLAG 

;SEE IF HALT ON ERROR 
IF NOT: BR 


>SEE IF DONE PRINT 
IF SO: BR 


;SEE IF SHOULD PRINT 
: IF NOT: BR 
:ELSE PRINT ERROR 
fae PRINT FLAG 

N 


SEQ 0122 


G 10 
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CZTUKA.P1 12-JUN-78 16:17 SEQ 0123 
pret sLOGIC TEST REGISTER BIT ERROR SUBROUTIINE**eteeenne 
4477 023640 012767 000001 155070 LIGER2: MOV #1,PEXFL SET FLAG 
4478 023646 000240 LTGER1: NOP 
4479 023650 005067 155012 CLR PFLG sCLEAR PRINT FLAG 
4480 023654 032777 020000 154706 BIT #20000. a@SwR ;SEE IF PRINT ERRORS 
4481 023662 001402 BEQ LTGIA :IF SO: BR 
4482 023664 000167 000132 JMP LTGIX sELSE GO TO EXIT 
4483 023670 005767 154724 LTGIA: TST HDRFL ;SEE IF PRINT HEADER 
4484 0235674 001004 BNE LTG1B ; If NOT: BR 
4485 023676 016704 154720 MOV EMADDR ,R4 
4486 025702 004767 000656 JSR PC, TTOUT ;PRINT HEADER 
4487 023706 012767 000001 154704 LTG1IB: MOV #1 ,HORFL SET FLAG 
4488 023714 016704 154752 MOV ERADD ,R4 
4489 023720 004767 000640. JSR PC, TTOUT sPRINT ERROR CODE 
4490 023724 005767 155006 TST PEXFL ;SEE IF PRINT EXPT-RCVD 
4491 023730 001016 BNE LTGIT ; IF NOT: BR 
4492 023732 012704 026200 MOV #ASG12,R4 
4493 023736 004767 000622 JSR PC, TTOUT :PRINT EXPT TAG 
4494 023742 010103 MOV R1,R5 
4495 023744 004767 000742 JSR PC,OCTP PRINT EXPT 
4496 023750 012704 026207 MOV #MSG13,R4 
4497 023754 004767 000604 JSR PC,TTOUT ;PRINT RCVD TAG 
4498 023760 010203 MOV R2,R3 
4499 023762 004767 000724 JSR PC,OCTP ;PRINT RCVD 
4500 023766 032777 010000 154574 LTGIT: BIT #10000 ,aSuR 
4501 023774 001010 BNE LTGIC 
4502 0235776 012704 026277 MOV #ASG16,R4 
4503 024002 004767 000556 JSR PC, TTOUT 
4504 024006 016705 154670 MOV ITCNT RS 
4505 024012 004767 000674 JSR PC,OCTP ;PRINT ITERATION 
4506 024016 005267 154644 LTGiC: INC PFLG 
4507 024022 000240 LTGIX: NOP 
4508 024024 005777 154540 TS! aSwR 
4509 024030 100001 BPL LTG1X1 ;1F NOT STOP ON ERROR: BR 
4510 024032 000000 HALT 
4511 024034 005767 154626 LTGIX1: TST PFLG 
4512 024040 001006 BNE LTGIXX ;1F HAVE PRINTED: BR 
4513 024042 032777 020000 154520 BIT #20000 ,aSwrR 
4514 024050 001002 BNE LTGIXX ;IF STILL NO PRINT: BR 
4515 024052 000167 177612 JMP LTGIA sELSE PRINT ERROR 
4516 024056 000240 LTGIXX: NOP 
4517 024060 005067 154652 CLR PEXFL -sCLEAR EXPT-RCVD FLAG 
4518 024064 000167 000002 JMP SCOPE ;GO TO SCOPE 
rt 024070 000207 RTS PC ; RETURN 


babies CONTROL LOGIC 


CZTUKA.P 12-JUN-78 


024072 


024116 


024122 


024164 


024166 


024202 


000110 


000240 


000167 


TEST 
16:17 


040000 


154570 


010000 
154542 
154534 
154530 


154530 


027104 
000364 


155624 


MACY11 30(1046) 


154466 


154436 


154432 
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SCOPE LOOP ON ERROR SUBROUTINEteeexaeeae 


NOP 

BIT #40000 , aSuR 7 SEE If LOOP ON ERROR 
BNE SCOPE1 :1F SO: BR 

RTS PC ;ELSE EXIT 

NOP 

TST (SP)+ sRESET STACK 

NOP 

NOP 


JMP aScoLP ;LOOP ON ERROR 
sTEST ITERATION SUBROUTINEt*#teeeaene 


NOP 
BIT #10000 ,aSwWR 7SEE IF ITERATIONS 
EQ ITER1 IF SO: BR 
CLR ITCNT sCLEAR ITERATION COUNTER 
RTS PC sELSE EXIT 
INC ITCNT :BUMP COUNTER 
CMP ITCNT, ITAMT >SEE IF DONE ALL 
BEQ ITERO IF SO: BR 
TST (SP)+ sRESET STACK 
MOV @ITRLP,RO 7SET ITERATION POINTER 
JMP (RO) :GO ITERATE 
sMANUAL INTERVENTION INHIBI Tettteeane 
NOP 


MOV #ASG43,R4 
JSR PC, TTOUT 


JMP TSCD2 


:GO PRINT INHIB MSG 
;RETURN TO SCHED 


SEQ 0124 


TMO2/TUSS CONTROL LOGIC TEST 
CZTUKA.P11 


024300 


024302 


024312 


024316 


024324 


000240 


000207 


000240 


000177 


000240 
000240 
000240 
000002 


12-JUN-78 16:17 


000040 
154402 
154434 


000000 
000030 


154352 


MACY11 30(1046) 


154302 
154274 INIT2: 
4310 


15 


IT1: 


INST: 


MTINT: 


TTINT: 
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s INITIALIZE SUBROUTINE teeeeeeees 


NOP 
MOV 
MOV 
MOV 
RTS 


> MANUAL 


#40,aCsS 7 INIT 
DRVN.aCS sSELECT DRIVE 
SLVN,a@TC sSELECT SLAVE 
PC ; RETURN 


INSTRUCTION SUSROUTINEtttteeeene 


;PRINT INSTRUCTION 
;PRINT REPLY 


PC, TTOUT 
#AMSGO,R4 
PC, TTOUT 
#TEMP3,RS 
#1,R1 
#-1,R2 
#0,R3 

PC, TTR ;AWAIT REPLY 


PC sEXIT 


2MAG TAPE INTERRUPT HANDLERetteeaeeane 


NOP 
CMP 
NOP 


NOP 
JMP 


(SP)+,(SP)+ sRESET STACK POINTER 


@RTRN RETURN TO CALLER 


sTTY INTERRUPT HANDLEReteeeerere 


SEQ 0125 


J 10 
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CZTUKA.P 12-JUN-78 16:17 SEQ 0126 
4594 sRRRETAAAR ERAT EAAA AAA AEA AAAE HEE K ERATE ERAT R AEE 
peed TTY ENTRY SUBROUTINE: 

4597 “THIS SUBROUTINE IS USED BY THE TEST CONDITION 

4598 sENTRY ROUTINE TO READ THE RESPONSE ENTERED 

4599 ;AT THE TTY AND CHECK THEM FOR LEGALITY AND 

4600 sLIMITS. ALL RESPONSE MUST BE TYPED IN OCTAL 

4601 :(0-7) AND MUST FALL WITHIN THE LIMITS SET BY 

4602 ; THE CALLING ROUTINE. 

4603 :IF AN ENTRY IS ILLEGAL OR OUTSIDE THE LIMITS, 

4604 :A QUESTION MARK IS TYPED (?) AND THE RESPONSE 

4605 sMAY BE REENTERED. 

4606 sENTRIES MAY NOT EXCEED SIX (6) CHARACTERS AND 

4607 sMAY BE TERMINATED AT LESS THAN SIX BY TYPING A 
4608 : CARRIAGE RETURN 

4609 SERRE E AAA E AERA E EEE EEE REET REET RE 
4610 

4611 024326 005067 154342 TTR: CLR TEMP1 - ;CLEAR FIRST CHARACTER FLAG 
4612 024332 005000 CLR RO : 

4613 024334 004767 000152 TTRO: JSR PC,TTIN :GO READ CHARACTER 

4614 024340 122767 000215 154250 CMPB #215,TIB SEE IF CR 

4615 024346 001005 BNE TTR1 ;1F NOT: BR 

4616 024350 005767 154320 TST TEMP 1 ;SEE IF FIRST CHARACTER 
4617 024354 001446 BEQ TTRS : IF SO: BR 

4618 0243556 000167 000066 JAP TTR2 SELSE GO LOAD VALUE 

4619 024362 122767 000260 154226 TTRI1: CAPB #260,TIB ;SEE IF CHAR IS LESS THAN 0 
4620 024370 101402 BLOS TTRIA :1F NOT: BR 

4621 024372 000167 000076 JMP TINER ZELSE GO TO ERROR 

54622 024376 122767 000270 154212 TTRIA: CMPB #270,T1B :SEE IF CHAR IS GREATER THAN 7 
4623 024404 101002 BHI TTRIB : IF NOT: BR 

4624 024406 000167 000062 JMP TINER ELSE GO TO ERROR 

4625 024412 005267 154256 TTRIB: INC TEMP) ;SET FIRST CHARACTER FLAG 
4626 024416 000241 cLC 

4627 024420 006100 ROL RO 

4628 024422 000241 CLC 

4629 024424 006100 ROL RO sSHIFT 3 LEFT 

4630 024426 000241 CLC 

4631 024430 006100 ROL RO 

4632 024432 042767 177770 154156 BIC #177770,TIB sSTRIP ASCII 

4633 024440 056700 154152 BIS TIB,RO ;LOAD CHARACTER 

4634 024444 005501 DEC R1 :SEE IF DONE 

4635 024446 001332 BNE TTRO ;1F NOT: BR 

4636 024450 020002 TTR2: CMP RO,R2 : SEE IF EXCEEDED MAXIMUM LIMIT 
4637 024452 101402 BLOS TTR3 :1F NOT: BR 

4638 024454 000167 000014 JMP TINER SELSE GO TO ERROR 

4639 024460 020300 TTR3: CMP R3,RO :SEE IF BELOW MINIMUM LIMIT 
4640 024462 101402 BLOS TTR4 :1F NOT: BR 

4641 024464 000167 000004 JMP TINER “ELSE GO TO ERROR 

4642 024470 010015 TTR4: MOV RO, (R5) ;LOAD VALUE 

4643 024472 000207 TTR5: RTS PC sEXIT 


TMO2/TU45 CONTROL LOGIC + ae 


CZTU 


UKA.P11 


024474 
024509 
024504 
024510 


024512 


024562 


024564 


024700 


024702 


024726 


12-JUN-78 


012704 
004767 
162716 
000207 


005077 


000207 


112467 


000207 


012767 
000402 
005067 


16:1 


027044 
000060 
000020 


154054 
154052 
154070 
154040 
154034 


154030 
154024 


154036 


154024 
000043 


000045 
000050 
000015 


000020 
000012 
000002 


153706 
153716 


900001 
000220 


000210 


MACY11 30(1046) 


154050 


154016 


154016 


154006 


153770 


153736 


153700 


000226 


TINER: 


TTIN: 


TTINI: 


TTIN2: 


TTOUT: 


TCRLF: 


TCRLFA: 


TOG: 


TEX: 


OCTPE: 
OCTP: 


OCTPE1: 


K 10 
22-JUN-78 08:58 PAGE 127 


sTTY ENTRY ERROR SUBROUTINE*#eteerens 


#MSG40,R4 
PC, TTOUT 

#20, (SP) 

PC 


MOV 
JSR 
SUB 
RTS 


;PRINT? 
;RESET SP TO START OF VALUE ROUTINE 
sREDO VALUE ENTRY 


sTTY READ SUBROUTINE tt eeeenene 


OUTPUT SUBROUTINE *tteeerecenee 


(R4)+,T0OB 
#43,T08 
TEX 


;D0 FILLERS 


;CLEAR FLAG FOR LEADING ZERO 
;SEE IF NUMBER IS ZERO 

;1F NOT ZERO: BR 

SEE IF oo ALL U 


;IF SO: 


SEQ 0127 





TMO2/TUG4S CONTROL LOGIC TEST 
12-JUN-78 16:17 


CZTUKA.P11 


an 


WWW Nh 
MAM AMS 


000000 


000162 
000120 
100000 


000901 
000116 
000006 


000104 


000064 


000052 
000036 


000022 
000014 
000240 
177572 
177770 


000030 
000020 


177532 


L 10 
MACY11 30(1046) 22-JUN-78 08:58 PAGE 


153526 


OCTPO: 


OCTP1: 
O.TP2: 


OCTP3: 


OCTPG: 


OCTPGO: 
OCTPG1: 


OFL: 


PC,OCTPG1 
OCTPS 
#100000 ,R4 
OcTP1 


#1,R4 
PC,OCTPG 
OCTP2 


128 


:ELSE PRINT ZERO 
:SPACE AND EXIT 
;SEE If MSD = 1 
: IF NOT: BR 
PRINT 1 


sPRINT 0 


>POSITION DIGIT 


;PRINT DIGIT 2 


PRINT DIGIT 3 


sPRINT DIGIT 4 


sPRINT DIGIT 5 
;PRINT SPACE 
sEXIT 


sFIRST CHAR FLAG 


SEQ 0128 


CZTUK 


025140 


025244 


025246 


025346 


000207 


010304 


He ae CONTROL LOGIC TEST 
A.P11 12-JUN-78 16:17 


153450 
0 0 


000060 
153400 


153452 
177704 


153440 
177674 


000036 


000026 


000010 
000002 


000260 
17776C 
153252 
177316 


MACY11 30(1046) 


153424 
153400 
153370 


DOUT: 


DOUT1: 


DOUT2: 
DOUT3: 


DOUTD: 


SNPT: 


153262 SNPG: 


Bm 10 
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sDATA CHARACTER OUTPUT SUBROUTINEtt*eeeaarene 


;SET NUMBER TO PRIN] 


TSTB aTPs 

BPL DOUT 

BITB #200, TCB 
BEQ DOUT 

MOV #061,aTPB 
BR DOUTS 
MOV #060 ,aTPB 
ROL TOB 

DEC R4 

BNE DOUT1 

RTS PC 

MOV TEMPS .R3 
SWAB R3 


JSR PC ,DOUT 
MOV TEMPS.RS3 
JSR PC ,D0UT 
RTS PC 


;TU45 SERIAL NUMBER PRINT SUBROUTINE *#*ex2200% 
MOV R3,R4 
S R4 


WAB 
ROR R4 

ROR R4 

ROR R4 

ROR R4 :GET FIRST DIGIT 
JSR PC, SNPG : PRINT 

MOV R3,R4 

SWAB ORR :GET SECOND DIGIT 
JSR PC, SNPG : PRINT 

MOV R3,R4 

ROR 

ROR R4 

ROR R4 

ROR R4 

JSR PC, SNPG :PRINT THIRD DIGIT 
MOV R3, 

JSR PC, SNPG :PRINT FOURTH DIGIT 
RTS PC EXIT 

MOV #260, 108 “SET BASE = 0 

BIC #177760,R4 “MASK DIGIT 

BIS R4,TOB “SET ASCII 

JSR PC,TOG = TYPE DIGIT 

RTS PC * RETURN 


SEQ 0129 


N 10 
TMO2/TU45 CONTROL LOGIC TEST MACY11 30(1046) 22-JUN-78 08:58 PAGE 130 
CZTUKA.P11 12-JUN-78 16:17 SEQ 0130 


4799 sMESSAGE TABLE teterecere 


4801 025350 022445 046524 031060 MSGi: .ASCII /Z2TMO2-TU4S CONTROL LOGIC TEST (CZTUKAO)4#/ 
4802 oseeae eg ste 032125 020065 


4804 025372 020114 047514 044507 
025400 24 


043 
4808 025421 105 052116 051105 -ASCII /ENTER CONDITIONS IN OCTALZ4/ 


809 , 
4810 025434 044524 047117 020123 ~ ow 
4811 025442 047111 047440 052103" 


“4813 025454 042045 044522 test: MSG2: .ASCII /ZDRIVE NUMBER #/ 


4816 025473 045 043045 a MSG2A: .ASCII /2ZZFOR DRIVE ADDRESS TEST; / 


4818 025506 040440 042104 042522 
4819 025514 051523 052040 051505 


4821 025524 020045 047105 042524 ASCII /% ENTER EXPT DRIVE NUMBER, ALL OTHERS SHOULD BE NON-EXISTANT.#/ 


025 
4830 025612 051511 040524 052116 
4832 025622 047045 047117 042455 MSG3: .ASCII /ZNON-EXIST DRIVE #/ 


34 0256 2 
4835 025644 051045 020110 042504 MSG4: .ASCII /ZRH DETECTED #/ 
4836 oeeeee 042524 052103 042105 


4838 025662 052045 030115 020062 MSGS: ASCII /ZTMO2 DETECTED #/ 
48°9 025670 042504 042524 052103 


4841 025702 054105 052120 047055 MSG6: .ASCII /EXPT-NOT RECVD#/ 
4842 025710 052117 we 041505 


043 
4844 025721 122 053103 026504 MSG7: .ASCII /RCVD-NOT EXPT#/ 
4845 025726 047516 020124 054105 


043 
4847 025737 045 046125 053101 MSG8: .ASCII /ZSLAVE NUMBER #/ 
4848 Osabes 020105 052516 041115 


4850 025756 022445 047506 020122 MSG8A: .ASCII /%%FOR SLAVE ADDRESS TEST; / 
4851 025764 046123 053101 020105 
4852 025772 042101 051104 051505 
4853 026000 aad 042524 052123 


TMO2/TUSS5 CONTROL LOGIC TEST 
CZTUKA.P11 


12-JUN-78 16:17 


053101 
042522 


021440 
050130 


041522 


020122 
032040 


051115 
020123 
43 


043 
041524 
030440 
041524 


051117 


MACY11 30(1046) 


052116 


047101 
026516 
020124 
020105 
042101 
020124 
040520 
052111 
052116 
050040 
020124 
042126 


044502 
030055 


041040 
032461 


041040 


0 
051105 


041040 
020064 


041040 
031061 


044502 
026465 


020116 


041440 


041040 
052117 
042522 


MSG9: 

MSG10: 
MSG11: 
MSG12: 


MSG13: 
MSG14: 


MSG15: 


MSG15A: 


MSG16: 
MSG17: 


MSG18: 


MSG19: 


MSG20: 


MSG21: 


B 11 
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ASCII 


-ASCII 


-ASCII 


ASCII 


ASCII 
ASCII 
ASCII 


ASCII 


eASCII 


ASCII 


ASCII 


ASCII 


ASCII 


ASCII 


ASCII 


/% ENTER EXPT SLAVE NUMBER, ALL OTHERS SHOULD BE NON-EXISTANT.#/ 


/ZNON-EXIST SLAVE #/ 
/ZREAD CONT BUS PAR #/ 
/ZWRITE CONT BUS PAR #/ 


/ EXPT #/ 
/ RCVD #/ 
/ZAR BITS 4-04/ 


/2ZMR BITS 15-78/ 
/4MR BIT6 DID NOT SET #/ 
/EITER: #/ 

/2TC BIT 14 #/ 

/21C BITS 12-0 #/ 

/ZFC BITS 15-0 #/ 


/ZFUN CODE BITS 5-1 OF C1 #/ 


/ZGO BIT NOT CORRECT AT START #/ 


SEQ 0151 


TMO2/TUS5 CONTROL LOGIC 
12-JUN-78 


CZTUKA.P11 


052103 
052123 
043 


TEST 
16:17 


040440 
051101 


047507 


051440 


040524 
051440 


020125 


051440 


042522 
051440 


040514 
051440 


041523 
051440 


021440 
047105 
050040 


043 
042504 


Cc 11 
MACY11 30(1046) 22-JUN-78 08:58 PAGE 132 


020124 
020124 


041040 


044516 
020131 


0 5 
047507 
044440 


052105 


047040 
052105 


044502 
020124 

043 
047040 
052105 


047040 
052105 


047040 
052105 


047040 
052105 
020104 
051501 


042101 


MSG22: 


MSG23: 


MSG24: 


MSG25: 


MSG25A: 


MSG26: 


MSG27: 
MSG30: 
MSG31: 
MSG32: 
MSG33: 
MSG34: 
MSG35: 
MSG36: 


MSG37: 


MSG40: 
MSG41: 


MSG42: 


ASCII 


-ASCII 


-ASCII 
ASCII 
ASCII 
ASCII 


ASCII 
-ASCII 
-ASCII 
ASCII 
ASCII 
-ASCIT 
ASCII 
-ASCII 


ASCII 


eASCII 
ASCII 


ASCII 


/ZG0 BIT NOT SET #/ 


/%GO BIT NOT RESET BY INIT #/ 


/ZDRY NOT SET BY INIT #/ 
/ZDRY NOT RESET BY GO=14/ 
/ZDRY NOT SET BY GO=0#/ 
/ZNC INTERRUPT RETURNED#/ 


/ZBAD STATUS#/ 

/ SN: #/ 

/ZERR NOT SET #/ 
/ZATA NOT SET #/ 
/ZAS BIT NOT SET #/ 
/%SC NOT SET #/ 
/ZTRE NOT SET #/ 
/ZSLA NOT SET #/ 


/ZSSC NOT SET #/ 


? #/ 


/%ZEND OF PASS #/ 


/ZDEAD TRACK #/ 


? 


SEQ 0132 


CZTUK 


027074 


027554 


bg an - LOGIC ‘TEST 
A.P11 12-JUN-78 16:17 


040522 
040515 


046103 


050114 
052117 


MACY11 30(1046) 


045503 
052516 


040510 


046105 
047101 


020040 
020040 


046440 
020040 


051040 


040505 


040510 
051440 


054105 


046040 
041440 
052524 


051505 


MSG43: 


MSG44: 


MSG45:. 


MSG46: 


MSG47: 


MSG50: 


MSG51: 


MSG52: 
MSG53: 
MSG54: 
MSG55: 


11 
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-ASCII 


ASCII 


-ASCII 
ASCII 


ASCII 


ASCII 


ASCII 


-ASCIT 


ASCII 


-ASCIT 
ASCII 
ASCII 
-ASCIT 


/ZZMANUAL TESTS (14-17) INHIBITED: HALT2/ 


/RESELECT AND PRESS CONTINUEZA&/ 


/GREGISTER START: #/ 
/%VECTOR ADDRESS: #/ 


/ZCS1 WC BA FC CS2 DS ER 


/. MR TC2L#/ 


“/4NOT RESET BY DRIVE CLEAR#/ 


/ZALPHA NOT SET#/ 


/ZUNEXPECTED ERROR BITS#/ 


/ENRZ ONLY: #/ 

/ZBAD LRC #/ 

/ZBAD CK #/ 

/&SETUP ERROR: CHECK WRAP C WITH TEST 50#/ 


eye J CONTROL LOGIC TEST 
12-JUN-78 16:17 


CZTUKA.P 


027562 


027610 


020124 
045 
041511 


051524 
035131 


030065 
052123 
052040 


047440 
021440 


MACY11 30(1046) 


043 
052101 
051505 
046116 


MSG56: 


E 11 
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-ASCII 


/EZSTATIC TESTS ONLY: #/ 


SEQ 0134 


TMO2/TUSS CONTROL LOGIC TEST 
CZTUKA.P11 


027614 


022445 
020103 
0 0 


12-JUN-78 16:17 


047514 


024 
020071 
047514 


F 11 
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034115 
044122 


044507 


030071 
043517 


043040 


MSLi1: 


MSLT2: 


MSLT3: 


MSLT4: 


MSLTS: 


MSLT6: 


MSLT?: 


MSLT10: 


-ASCII 


ASCII 


-ASCII 


ASCII 


-ASCI1 


ASCII 


ASCII 


STEST HEADERt eeeeeeeere 
-ASCII 


/ZZLOGIC TEST 1: DRIVE ADDRESSING (M8909 RH) #/ 


/ZZLOGIC TEST 2: REGISTER ADDRESSING (M8909 RH) #/ 


/ZZLOGIC TEST 3: CONTROL BUS TEST (RH M8905 M8909) 4/ 


/ZRLOGIC TEST 4: SLAVE ADDRESSING (M8905 M8903)4/ 


/2ZLOGIC TEST 5: MR BIT TEST (M8905) 4/ 


/EZLOGIC TEST 6: TC BIT TEST (M8905) 4/ 


/ZZLOGIC TEST 7: FC BIT TEST (M8905) 4/ 


/ZZLOGIC TEST 10: FUNCTION BIT TEST (M8905) #/ 


SEQ 0135 


CZTUKA. 


PI 


Sh his ca 


5084 
5085 
5086 
5087 


5103 


WN $$ SO OOnNO wT & WN — OC O@NOUSUN—O Oa tow 


WAMAAA A A I An 
ce reel eel ce el el el eee ee ee ed me ee ee eB ee ee ee ed ed 0 eed ed ed od oo od 
BSS See saweusunwoese eee 
COnoOw 


030760 


020103 


ROL LOGIC TEST 
12-JUN-78 16:17 


052103 


024040 
047514 


051505 
047514 


051505 
047514 


051505 
047514 


051505 


047514 
042524 


MACY11 30(1046) 


024465 
043517 


020124 
034460 


044507 


042524 
044122 


044507 
052123 


020124 
044507 


020124 
044507 


020124 
044507 


020124 


044507 
052123 


MSLT11: 


MSLT12: 


MSLT13: 


MSLT14: 


MSLT15: 


MSLT16: 


MSLT17: 


MSLT20: 


G 11 
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ASCII 


-ASCII 


ASCII 


ASCII 


ASCII 


-ASCII 


-ASCII 


-ASCII 


/ZZLOGIC TEST 


/ZZLOGIC TEST 


/ZZL0GIC TEST 


/ZZLOGIC TEST 


/ZZLOGIC TEST 


/ZZLOGIC TEST 


/ZZLOGIC TEST 


/ZZLOGIC TEST 


—) 


7 


— 


at 


ae 


20: 


1: 


2: 


3: 


4: 


S$: 


GO BIT TEST (M8909)4/ 


DRIVE READY BIT (M8909)4/ 


INTERRUPT TEST (RH)#/ 


MANUAL STATUS TEST 14/ 


MANUAL STATUS TEST 24/ 


: MANUAL STATUS TEST 34/ 


: MANUAL STATUS TEST 44/ 


ILLEGAL FUNCTION TEST (M8909) #/ 


SEQ 0136 


H 11 
TMO2/TUSS CONTROL LOGIC TEST MACY11 30(1046) 22-JUN-78 08:58 PAGE 137 
CZTUKA.P11 12-JUN-78 16:17 SEQ 0137 


5140 030766 031040 035060 044440 


43 
5146 031031 045 oe eeae 043517 MSLT21: .ASCII /ZZLOGIC TEST 21: RMR(M8909) 4/ 


MSLT22: .ASCII /%&LOGIC TEST 22: CPAR(M8909) 4/ 


ww 
— 
os 
oO 
~ 
™m 
© 
r 
_ 
Ww 
=— 
> 
ar 
Nw 
oo 
& & 
ow 
oo 
wi & 
—W 
Ww 
o— 
ws 


022445 047514 044507 MSLT23: .ASCII /2Z2LOGIC TEST 23: FMT(M8905 M8906) 4/ 


ed ed ad ed ed ced ed 
oQooocoooe 


wn 


032460 046440 034470 
022445 047514 044507 MSLT24: .ASCII /ZZLOGIC TEST 24: DPAR(M8906 RH)&/ 


AQAA WUWUWouuw 
UistWN— OO O@~7AF VUlPwh) 
ooococooo°o 
NEONEOONERS 
oS 
~ 
oS 
—s 
© 
Lae 
t= | 
7 
™ 
w 
™m 
= 
oO 
wi 
™m 
— \ 
Nm 
IN 


Www 
Nyt te 


u 030071 020066 044122 
<3 022445 047514 044507 MSLT25: .ASCII /ZZLOGIC TEST 25: NEF (M8909) 4/ 


246 043105 046450 034470 


260 022445 047514 044507 MSLT26: .ASCII /%ZZLOGIC TEST 26: FCE(M8909)4/ 
266 020103 042524 052123 
74 031040 035066 043040 
042503 046450 034470 


2 
0 
5 022445 047514 044507 MSLT27: .ASCII /ZZLOGIC TEST 27: ILR(M8909)4/ 
0 


SN NNN NS NNN NA AOS & 
ooooooooooocooc”“eococnjc(“ 
WIAA IE II I IE I I tt 


051114 046450 034470 
022445 047514 044507 MSLT30: .ASCII] /ZZLOGIC TEST 30:DTE(M8906 RH)#/ 


WN — OS OO@neVlkwn 0 O@ono 


031406 022445 047514 044507 MSLT31: .ASCII /%Z%LOGIC TEST 31: OPI (M8903) 4/ 


031430 044520 046450 034470 


0314 ‘ 

031442 022445 047514 044507 MSLT32: .ASCII /%ZLOGIC TEST 32: UNS(M8909)4#/ 
031450 020103 042524 052123 

031456 031440 035062 052440 


WAM I NN 
OOO CeOoeoen 
Oo 
ad 
—s 
& 
— 
~~ 
So 
™~ 
SoS 
J 
So 
Saad 
So 
_ 
Nm 
Ww 
~m 
& 
Se 
Wr 
™m 
aed 
nN 
tad 


el el cc el cee ce ee ee ee ee ee ee ne eed ed oe 0 ed aed aed oe =o 7 oo od =o? = od 


© 
w 


TMO2/TU4S CONTROL LOGIC TEST 
CZTUKA.P11 


032142 
032150 


051516 


042520 


12-JUN-78 16:17 


034470 
047514 


047054 


MACY11 30(1046) 


034470 
044507 
3 


034470 
044507 


034470 
044507 


034470 
044507 


034470 
044507 


031060 
044507 


030071 
043517 


026114 
044507 


051117 


MSLT33: 


MSLT34: 


MSLT35: 


MSLT36: 


MSLT37: 


MSLT40: 


MSLT41: 


MSLT42: 


MSLT43: 
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ASCII 


-ASCII 


ASCII 


ASCII 


ASCII 


ASCII 


ASCII 


-ASCII 


ASCII 


/ZZLOGIC TEST 35: 


/ZZLOGIC TEST 34: 


/ZZLOGIC TEST 35: 


/ZZLOGIC TEST 36: 


/%ZLOGIC TEST 37: 


/ZZLOGIC TEST 40: 


/ZZLOGIC TEST 41: 


/ZZLOGIC TEST 42: 


/ZZLOGIC TEST 43: 


PIP(H8909) #/ 


PES (M8911) 4/ 


TCWC(MB903 M8905) 4/ 


FCS(M8903 M8905) 4/ 


ACCL(M8903 M8905) 4/ 


PE TAPE MARK(M8902)#/ 


NRZ TAPE MARK (M8904) 4#/ 


WRAP 3,NRZ,NORMAL ,ODD#/ 


WRAP 3,PE,NORMAL ,ODD#/ 


SEQ 0138 


J 11 
TMO2/TU4SS CONTROL LOGIC TEST MACY11 30(1046) 22-JUN-78 08:58 PAGE 139 
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5252 032156 pore HE, 026114 042117 
5254 032166 022445 047514 ete MSLT44: .ASCII /ZZLOGIC TEST 44: WRAP 2,NRZ,NORMAL ,ODD#/ 


5259 032224 046522 046101 047454 
§261 032235 045 046045 043517 MSLT45: .ASCII /%%ZLOGIC TEST 45: WRAP 2,PE,NORMAL,ODDA4/ 
$262 032242 041511 052040 051505 

§263 032250 020124 032464 020072 

5264 032256 051127 050101 031040 

§265 032264 050054 026105 047516 

5266 032272 046522 046101 047454 

5268 032303 045 046045 043517 MSLT46: .ASCII /%%LOGIC TEST 46: WRAP 1,NRZ,.NORMAL,ODD#/ 
5269 032310 041511 052040 051505 

5270 032316 020124 033064 020072 

§271 032324 051127 050101 030440 

5272 032332 047054 055122 047054 

5273 032340 051117 040515 026114 


5275 032352 022445 047514 044507 MSLT47: .ASCII /2ZLOGIC TEST 47: WRAP 1,PE,NORMAL,ODDA/ 


5280 032410 040515 026114 042117 
5282 032420 022445 047514 044507 MSLT50O: .ASCII /%ZZLOGIC TEST 50: WRAP 0,NRZ,NORMAL ,ODD#/ 


5286 
sSee 032456 046522 046101 047454 
5289 032467 045 046045 0435517 MSLT51: .ASCII /Z%LOGIC TEST 51: WRAP 0,PE,NORMAL ,ODDA#/ 


032524 arocee wee 047454 
032535 045 areata 043517 MSLT52: .ASCII /%Z%LOGIC TEST 52: CORE DUMP WRITE (M8906) #/ 


0326 
dad, 032606 022445 047514 044507 MSLT53: .ASCII /%ZLOGIC TEST 53: CORE DUMP READ (M8906)4#/ 


5 
5397 032636 050115 651040 040505 


TMO2/TU 


CZTUKA 


ANA 
MUI & 


ad Ut A LA A 


WMA MS VI 
MVMiIiVMuviun 


Wy -SOOCanouwswn—-cOo®w 


Soa 


45 CONTRO 
P11 


032644 
0 


033322 


0 

024464 
045 

041511 


L LOGIC 
12-JUN-78 


TEST 
16:17 


046450 


030071 
046045 


030071 
046045 


030071 
046045 


MACY11 30(1046) 


034470 
044507 


024464 


043517 
051505 
020072 
050040 
020131 
046450 
046440 
021451 
044507 
052123 
051040 
042522 
024105 
024466 


043517 


024461 
043517 


030071 


043517 
051505 


MSLT54: 


MSLT55: 


MSLT56: 


MSLT57: 


MSLT60: 


MSLT61: 


MSLT62: 


MSLT63: 


K 11 
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-ASCII 


ASCII 


-ASCII 


ASCII 


ASCII 


ASCII 


ASCII 


ASCII 


/ZZLOGIC TEST 54: EVEN PARITY WRITE (M8903 M8904) 4/ 


/ZZLOGIC TEST 55: 


/ZZLOGIC TEST 56: 


/ZZLOGIC TEST 57: 


/ZZLOGIC TEST 60: 


/ZZLOGIC TEST 61: 


/ZZLOGIC TEST 62: 


/ZZLOGIC TEST 63: 


EVEN PARITY READ(M8903 M8904) 4/ 


READ REVERSE (M8906) #/ 


CRC( M8904) #/ 


LRC (M8904) 4/ 


CORRECTABLE DATA (M8902 M8901) 4/ 


INCORRECTABLE DATA (M8902 M8904) #/ 


PEF (M8902) #/ 


L 11 
TMO2/TU4S CONTROL LOGIC TEST MACY11 30(1046) 22-JUN-78 08:58 PAGE 141 
CZTUKA.P11 12-JUN-78 16:17 SEQ 0141 


5364 033330 020124 031466 026072 

366 033344 43 

5367 033351 45 046045 po LU MSLT64: .ASCII /2ZZLOGIC TEST 64: FC OVERFLOW (M8905) 4/ 
06 2526 

5371 033400 043122 047514 020127 


033406 046450 034470 032460 
5373 033414 621451 


TMO2/TUSS CONTROL LOGIC TEST 


CZTUK 


UKA.P11 


033736 


044514 


12-JUN-78 16:17 


050131 


026107 
044514 


046445 


0 
042516 


MACY11 35041046) 


020105 
042510 
042101 


052517 
047111 


020124 
6 


042516 
053117 


MMSGO: 


MMSG1: 


MASG2: 


MMSG3: 


MMSG4: 


MMSGS: 


A 11 
22-JUN-78 08:58 FAGE 142 


> MANUAL 
-ASCII 


-ASCiI 


ASCII 


ASCII 


ASCII 


SEQ 0142 


INSTRUCTIONeteeecerer 
/ZTYPE CR WHEN READY; #/ 


/ZZMOUNT TAPE WITH NO WRITE RING, LOAD TO BOT, SET TO ON LINE: #/ 


/ZSET TO OFFLINE: #/ 


/ZMOVE FORWARD TO EOT, ONLINE:4/ 


/ZOFF LINE REVERSE PAST EOT, INSERT WRITE RING, ON LINE#/ 


/ZZMOVE TAPE TO BOT; ON LINE#/ 


TMO2/TU45 CONTROL LOGIC TEST 
CZTUKA.P11 


033743 


12-JUN-78 16:17 


046123 
047502 
046524 
053504 
042520 
051523 
051104 
050104 


052116 


047505 - 


051127 
047515 
044520 
051105 
052101 
046111 
046111 
046522 
050103 


052115 
040520 


047111 
050126 
042520 
051114 
051516 
041506 


MACY11 30(1046) 


020101 
020124 
021440 
030116 
020123 
020103 
020131 
020122 
020114 
020124 
020114 
020114 
020120 
020122 
020101 
020106 
020122 
020122 
051101 


021440 
020122 


020103 
020105 
020106 
020103 
020107 
020105 


N11 
22-JUN-78 08:58 PAGE 143 


ASCII 
-ASCII 
-ASCII 
-ASCII 
ASCII 
ASCII 
ASCII 
ASCII 
ASCII 


ASCII 
ASCII 


ASCII 
ASCII 
ASCII 
ASCII 
ASCII 
ASCII 


TAG MESSAGE 
-ASCII 
-ASCII 
“ASCII 
-ASCII 
-ASCII 
-ASCII 
ASCII 
-ASCII 
-ASCII 


ASCII 


/ZSLA #/ 
/ZBOT #/ 
/ZTh #/ 
/ESDUN #/ 
/ZPES #/ 
/ESSC #/ 
/ZORY #/ 
/ZDPR #/ 
/ENTL #/ 
/ZEOT #/ 
/ZWRL #/ 
/ZROL #/ 
/EPIP #/ 
/ZERR #/ 
/ZATA #/ 
/ZILF #/ 
/ZILR #/ 
/ZRAR #/ 
/ECPAR #/ 


/ZFAT #/ 
/ZDPAR #/ 


/ZINC #/ 
/EVPE #/ 
/ZPEF #/ 
/ELRC #/ 
/ZNSG #/ 
/ZFCE #/ 


SEQ 0143 


TMO2/TUSS CONTROL LOGIC TEST 
CZTUKA.P11 


5505 
06 


wu 


SiSaueweiuneoeee 
—~O CeO U SWC OO~ 


WWW 4 MS WS MS I a IO a < 
mr 
Wh 


w 
w 
™ 
o 


034350 


034550 


034750 
034756 
034764 


035106 
035113 


034350 


000100 


000100 


051445 


12-JUN-78 16:17 


651503 


020111 
047125 


047503 
041522 


041503 


052105 
051122 


052101 


051503 
051504 


041104 


MACY11 30(1046) 


021440 


020123 
051122 
021440 
021440 


021440 
020114 


050125 
051117 


047122 
~~ 


044522 
021440 
021440 

043 
020062 
021440 

043 
021440 
021440 





WDATA: 


RDATA: 


B i2 
22-JUN-78 08:58 PAGE 144 


: ASCII 


-ASCII 
-ASCII 


-ASCII 
-ASCII 
-ASCII 
ASCII 


/tuRITE OPI #/ 
/ZREAD OPI #/ 
/ZUNS #/ 
/ZCORR #/ 
/x1cu #/ 


/ZFCS #/ 
/ZACCL #/ 


EVEN 
sWRITE BUFFER 


100 


sREAD BUFFER 


~REPT 
0 
-ENDR 


100 


sWRAP AROUND MESSAGES*+t2* 


ASCII 


-ASCIT 


ASCII 


ore Fas fe fe De fe Ome bm bene fend 


/ZSETUP ERRORZ#/ 


/ZPATRN NUMBER = #/ 


/ENON-EXISTANT DRIVEZ#/ 


/ZCS1 #/ 


/ECS2 #/ 


/Z0S #/ 
/ZER #/ 
/ZAS #/ 
/ZCC #/ 
/Z0B #/ 


SEQ 0144 


TMO2/TU45 CONTROL LOGIC 
12-JUN-78 


CZTUKA.P11 


MVUViUAVIMuwvi 
COON UE wil 


035120 
0 


035376 


035402 
035524 


035646 
036260 


046445 


035402 
000000 
000050 


000000 — 


000050 
000000 
036260 
000000 


000001 


TEST 
16:17 


020122 
0 


051122 


020117 
020115 


047516 


MACY11 30(1046) 


043 
021440 
043 
021440 
042040 


050125 
046103 


- 050125 


041440 
042040 
020101 

043 
020104 
041115 


020104 
046501 


041440 
042040 
052117 
051101 


043 
051124 





WMSG27: 
WMSG28: 


WMSG29: 


WMSG31: 


WMSG32: 


PRE: 


: .AS 
: Ae 


: LAS 


C 12 
22-JUN-78 08:58 PAGE 145 


C 
C 
ASC 
C 
C 


ol bend beet ree bd peed 


ASCII 


-ASCII 
3 


ASCII 


EVEN 
REPT 


/ZAR #/ 
/ZDT #/ 


/Z1C #/ 
/ZSN #/ 
/ZBAD DATA#/ 


/2£G: #/ 


/ZB: #/ 

/ZCN: #/ 

/ZBAD STATUS#/ 
/ZNO INTERRUPT#/ 
/ZNO CLOCK UP#/ 
/ZNO CLOCK DOWN#/ 


/EDATA PAT: #/ 
/ZBAD PREAMBLE#/ 


/ZBAD POSTAMBLE#/ 


/ZEOR CLEAR DID NOT CLEAR GOZ#/ 


/ PATRN #/ 


50 


50 


SEQ 0145 


TMO2/TUSS CONTROL LOGIC TEST 


CZTUKA.P11 
ADDFL 000746 
AS 526 
ASF 000730 
ATAF 000720 
ATTA 025442 
ATTB 023464 
ATTC 23506 
ATTD 023516 
ATTN 023420 
ATTP 23526 
ATTPA 023554 
ATTX 023600 
ATTXA 025610 
ATTXX 023632 
BA 000514 
BOTT 017254 
BOTTA 017300 
BOTTX 017314 
cc 00530 
CRCNT 000774 
cs 0052 
C1 000510 
DATAD 000760 
DATAO § 001032 
DATA1 001034 
DATA2 001036 
DATAS 001040 
DATBL 001030 
DATC 000754 
DAT 016026 
DATIA 016032 
DATIB 016036 
DAT2 016050 
DATS 016056 
DAT4 016066 
DAT4A 016074 
DB 000532 
DCA 023204 
DCAO 023220 
DCB 023260 
occ 023270 
DCD 023160 
DCE 233 
DCEA 023330 
DCEX 023350 
DCEXA 23360 
DCEXX 023402 
DCHK 020054 
DCHKA 020132 
DCHKAO = 020106 
DCHKA1 020162 
DCHKA2 020210 
DCHKB §=020262 


12-JUN-78 16:17 


MACY11 30(1046) 
MB 


075332 


000726 


ali 


LTGER1 


D 12 
08:58 PAGE 147 - 


016666 


022472 
023646 


LTGER2 
LTGERS 
LTGX 


L 
LT10X ~ 
LT 


LT141T 


023640 


4210 
004336 
004350 


005204 
005222 


005270 
00 


0 
006710 
006772 





SEQ 0146 





TMO2/TUSS CONTROL LOGIC TEST 


CZTUKA.P11 
LT241T 006542 
LT24xX 007016 
LT25 007052 
LT25A 007160 
LT251T 007060 
LT25x 007170 
L126 007204 
LT26A 007270 
LT26B 007314 
LT26C 737 
LT261T 007212 
LT26W 007220 
LT26xX 007404 
L127 007420 
LT27A 00745 
L127B 007512 
LT271T 00744 
LT27x 007522 
LT27xXx 007532 
13 002674 
LT35A 002714 
LT38 002734 
LT3C 002750 
LTSER1 002762 
LT3ER2 003010 
LT3I1T 002676 
LT3x 003032 
LT35xx 003050 
LT30 007536 
LT30A 007640 
LT30B 007702 
LT30C 8 ©007742 
LT30D 007760 
LT50E 010010 
LT301T 007560 
LT350x 010034 
LT31 010054 
LTS1A 010150 
LT31B 010212 
LT31C 010230 
LT31D 010276 
LTS'E 010346 
LT31IT 010070 
LTSiw 010104 
LT3iWi 010236 
LT31X 010362 
LT32 104 
LT32A 6010512 
LT321T 010420 
LT32x 010522 
LT33 10536 
LT33IT 010552 
LT33x 010630 


12-JUN-78 16:17 


MACY11 30(10 


010640 


012332 


22-JUN-78 


E 12 
08:58 PAGE 148 


012370 
0 


0 
003630 


004042 


033443 





027517 


SEQ 0147 





CZTUKA.P11 


027567 
0 


033117 


TMO2/TU4GS CONTROL LOGIC TEST 
12-JUN-76 16:17 


MSLT61 


SCOPE 
SCOPE 1 


033153 


024106 


F 12 
MACY11 3041046) 22-JUN-78 08:58 PAGE 149 
SYMBOL TABLE 


034067 


000656 


0 
001212 


SEQ 0148 





G 12 
tye J CONTROL LOGIC TEST MACY11 30(1046) 22-JUN-78 08:58 PAGE 150 
CZTUKA.P 12-JUN-78 16:17 SYMBOL TABLE SEQ 0149 





T251AD 001214 T40IAD 001270 T63AD 001402 035144 035120 
T26AD 001216 T41AD 001272 T63IAD 001404 

T261AD 001220 T411AD 001274 T64AD 001406 

T27AD §=001222 T42AD 001276 T641AD 001410 

T271AD 001224 T43AD 001302 T7AD 001122 

T3AD 001102 T44AD 001306 T7IAD 001124 

T3IAD T45AD 001312 UDES 000776 

T3OAD 001226 T466AD 001316 VECT 000610 

T3O1AD 001230 T467AD §=001322 WAM 000750 

T31AD 001232 T5AD 001112 WAMO 016110 

T311AD TSIAD 001114 WAMO1 16116 

T32AD 001236 TSOAD 001526 WAM 016154 

T321AD 001240 T51AD 001332 WAM2 016166 

T33AD 8001242 T52AD 001336 WAM2A 016222 

T3351AD 001244 T535AD 001342 WAM3 016232 

T34AD 00124 T54AD 001346 WAMSA 016312 

T341AD 001250 T55AD 001352 WAM3B 016350 

T35AD 001252 T56AD 001356 WBUF F 64 

TS51AD 001254 TS57AD §=©001362 WC 000512 

T36AD 001256 T57IAD 001364 WCDPO 001054 

T361AD 001260 T6AD 001116 WCDP2 001042 

T37AD «001262 T6IAD 001120 wCS1 001020 WMSG6E 035067 ‘ = 036262 
T371AD 001264 T61AD 001372 WCS2 001022 WMSG6F 035074 
T4AD 001106 T61IAD 001374 WDATA 34350 WMSG6G 035101 
T41AD = 001110 T62AD 001376 WDS 001024 WMSG6H 035106 
T40AD 001266 T62IAD 001400 WER 001026 WMSG6I 035113 


. ABS. 036262 000 


ERRORS DETECTED: 0 


»CZTUKA.SEQ/SOL_CZTUKA.P11 
RUN-TIME: 45 92 9 SECONDS 
RUN-TIME RATIO: 1164/147=7.9 
CORE USED: 5K (10 PAGES) 


